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