Staple1600
XLDnaute Barbatruc
Bonsoir à tous
Je reposte ma proposition de réponse
(je ne sais plus qui était l'auteur du post)
Je reposte ma proposition de réponse
(je ne sais plus qui était l'auteur du post)
Code:
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