Sub Macro1()
Dim x As Integer 'déclare la variable x
For x = 1 To Sheets.Count 'boucle sur tous les onglets du classeur
Sheets(x).Name = CStr(x) 'renomme l'onglet
Next x 'prochain onglet de la boucle
End Sub
Sub Macro1()
Dim nb As Variant 'déclare la variable nb (NomBre)
Dim x As Integer 'déclare la variable x (incrément d'onglet)
nb = Application.InputBox("Indiquez le numéro du premier onglet.", "Numérotation", Type:=1) 'définit la variable nb
For x = 1 To Sheets.Count 'boucle sur tous les onglets du classeur
Sheets(x).Name = CStr(nb) 'renomme l'onglet avec le nombre converti en texte
nb = nb + 1 'redéfinit nb
Next x 'prochain onglet de la boucle
End Sub