Pour la personne qui avait un devoir à faire

[Staple1600]

Bonsoir à tous

Je reposte ma proposition de réponse
(je ne sais plus qui était l'auteur du post)

Sub CopyValeurs()

Ligne = ActiveCell.Row ' permet de savoir le numéro de la ligne active
Worksheets("Saisie").Range(Cells(Ligne, 1), Cells(Ligne, 18)).Copy
'sélectionne la ligne contenat les données à copier
Worksheets("Liste").Range("B" & Ligne).PasteSpecial Paste:=xlValues
'ne copier que les valeurs

End Sub