Bonjour,
Il y a différentes méthodes, soit :
.Cells(6, 2).Copy Sheets("Base de données").Cells(NumLig + 1, 2)
soit :
1 2
| .Cells(6, 2).Copy
Sheets("Base de données").Cells(NumLig + 1, 2).PasteSpecial Paste:=xlValues |
Avec la méthode PasteSpecial il y a moyen de mettre d'autres paramètres que "Values" (voir le menu collage spécial)
A vue de nez, tu peux également supprimer les Shift:=xlDown, je ne vois pas à quoi ils servent
Et pour terminer, avant End Sub tu indiques
Application.CutCopyMode = False
Ce qui désactivera les scintillements de la dernière cellule copiée
Partager