bonjour Fabien
j'espere que ces quelques informations pourront t'aider . j'ai interprété qu'il s'agissait de copier les feuilles dans le meme classeur :
Sub CopierFeuilleEtRenommer()
Dim Feuille As Variant
Dim X As Byte
Application.ScreenUpdating = False 'option: figer l'ecran pendant le traitement
'exemple :
'copie des Feuil1 & Feuil3 :Sheets(Feuille).Copy
'et place les feuilles copiées à la fin :After:=Worksheets(X)
For Each Feuille In Array("Feuil1", "Feuil3")
X = ThisWorkbook.Sheets.Count 'compte le nombre de feuilles dans le classeur
Sheets(Feuille).Copy After:=Worksheets(X)
'renomme la nouvelle feuille créée
ActiveSheet.Name = "copie " & Feuille
Next Feuille
Application.ScreenUpdating = True
End Sub
bon dimanche
MichelXld