Sub Macro1()
'
' Macro1 Macro
'
'
Sheets("Feuil1").Select 'selectionne la feuille à copier
NomFeuille=Sheets("Feuil1").range("A1") 'récupère le nom de la nouvelle feuille à créer
Sheets("Feuil1").Copy after:=Sheets(Sheets.Count) 'la copie
Sheets("Feuil1 (2)").Name = NomFeuille 'et lui donne le nom "NomFeuille"
End Sub