(define (hash nom taille-table) (remainder (apply + (map char->integer (string->list nom))) taille-table))