Renommer

Bonjour,

J'ai créer un nouveau classeur Excel qui comprend 250 feuilles.

La première contient mon modèle que j'ai ensuite copier-coller sur toutes les autres.

Jusque là aucun souci.

Mon problème est que ma première feuille est nommée MODELE et je voudrais savoir comment je pourrais renommer les 249 autres pages d'une facon plus simple que clique droit + renommer pour chacune d'elle.

Je veux simplement faire une liste 1, 2, 3 .................... 249

Merci d'avance pour vos eventuelles réponses.

Bonjour

5 lignes Macro XL4 et bouton associé (sur la feuille macro)

Fichier joint

https://www.excel-pratique.com/~files/doc/NomOnglet.xls

Cordialement,

Amadéus

Salut Fhappy, Amadéus et le forum

Un façon par macro VBE

Sub Renommer()
Dim I As Byte
For I = 1 To Sheets.Count
If Sheets(I).Name <> "Modele" Then Sheets(I).Name = I - 1
Next I
End Sub

Mytå