Avant 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