Renommer les feuilles de 1 à 150 automatiquement

Bonjour à tous,

J'ai un document avec 150 feuilles, et j'aimerais les renommer de 1 à 150. Il y aurait un moyen plus rapide que de les nommer une par une ?

Merci d'avance de votre aide !

Bonjour,

à tester,

Sub NomFeuille()
For i = 1 To 150
 Sheets(i).Name = i
Next i
End Sub