Merci chalet53,Bonjour
A priori le code de création fonctionne. Pour mettre la feuille à la fin :
Sub copiefeuille()
'
' copiefeuille Macro
'
'
Sheets("Modele").Select
Sheets("Modele").Copy After:=Worksheets(Worksheets.Count)
End Sub
a+
Super tu est un génie, merci encoreAvant de créer la feuille, il faut choisir un rallye en A1 sur la feuille Modele (liste déroulante)
et exécuter le programme Nouveau Rallye et ensuite le programme : Renommer
Sub RenameSheet()
Dim rs As Worksheet
For Each rs In Sheets
If rs.Name = "Feuil1" Or rs.Name = "Modele" Or rs.Name = "RALLYE" Then GoTo suite
rs.Name = rs.Range("A1")
suite:
Next rs
End Sub
Problème : si le nom est déjà créé : Plantage