Bonsoir,
Le code suivant à relier à un autre bouton de commande :
Sub Copier()
Application.ScreenUpdating = False
With Sheets("Feuil1")
derLig = .Range("A" & Rows.Count).End(xlUp).Row
.Range("A1:C" & derLig).Copy
End With
Sheets("Feuil2").Range("A1").PasteSpecial xlPasteAll
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub