Option Explicit
Private Sub CommandButton1_Click()
Dim plage As Range
Application.ScreenUpdating = False
Feuil2.Range("B7:D41").Copy
With Sheets("Archivage")
Set plage = .Range("B1048576").End(xlUp).Offset(5, 0)
End With
plage.PasteSpecial Paste:=xlPasteAll
Application.CutCopyMode = False
'Pour enlever la sélection
Application.Goto Sheets("Archivage").Range("a1")
End Sub