Copier des feuilles Excel dans un autre classeur

Bonjour à tous,

Débutante en vba, je voudrais à partir d'un seul bouton de commande situé sur la première feuille, copier trois feuilles d'un "fichier excel 1" vers un "fichier excel 2".

J'arrive à copier une feuille avec le code suivant :

Sub Bouton1_Cliquer()

Workbooks.Open Filename:="D:\fichier2.xlsm"
Workbooks("fichier1.xlsm").Activate

Worksheets("1").Copy Before:=Workbooks("fichier2.xlsm").Sheets(1)

End Sub

Mais je voudrais copier les 3 feuilles d'un coup. Des idées ?

Merci d'avance ! Bonne journée

bonjour,

Sub Bouton1_Cliquer()
Workbooks.Open Filename:="D:\fichier2.xlsm"
Workbooks("fichier1.xlsm").Sheets(Array("Feuil1", "Feuil2", "Feuil3")).Copy Before:=Workbooks("fichier2.xlsm").Sheets(1)
End Sub

A+

Super ! merci pour cette réponse rapide !