Recopie d'onglets

[jerome payany]

Bonjour, j'ai une feuille de calcul mise en page dans un onglet. Je souhaite la recopier 60 fois et mettre le numéro de l'onglet dans la cellule A1 de chaque onglet.

Comment dois-je faire ?

Merci par avance

 

[Hervé]

salut tlm


Je ne suis pas un expert en macro, mais tu peux essayer ceci :

Sub recopieonglet()

For i = 1 To 60
Sheets(i).Copy After:=Sheets(i)
Sheets(i).Range("A1") = Sheets(i).Name

Next i
End Sub

en espérant t'avoir aidé.

bye bye
Hervé