Sheets("Vierge" ).Select
    Sheets("Vierge" ).Copy Before:=Sheets(3)
    Sheets("ACCEUIL" ).Select
    Selection.Copy
    Sheets("Vierge (2)" ).Select
     
    Sheets("Vierge (2)" ).name = ???????
     
    Range("g5:S5" ).Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    With Selection
 
là ou ya les point d'interrogation je veux que la feuille vierge(2) prenne le nom que j'ai mis sur l'onglet"acceuil" en case f8 j'ai essayé plein de truc rien ne marche
 merci

up!

re up!! please

Sheets("Vierge (2)" ).name = Sheets("Accueil" ).[F8]