Automatiser les pages Excel

Tout d'abord merci pour votre réponse!
Et pour la solution que vous avez proposez, oui je l'ai fait sauf que j'ai une bas de donnée qui comporte plus d'une centaine de feuilles et j'aimerais le faire automatiquement.

Voici un code que j'ai fait mais j'ai un petit souci au niveau du nom de la feuille. le nom ne s'incrémente pas à chaque fois. Par exemple feuille S1 ensuite S2...Sn.


Sub essai()
nbFeuille = Sheets.Count
'Dim i As Integer
Dim Valarray(52)



Sheets("S").Copy After:=Sheets(nbFeuille)

Sheets(nbFeuille + 1).Name = "S"



End Sub

Essaye avec ça

Sub essai()
Dim nbFeuille as Integer
nbFeuille = Sheets.Count

Sheets("S").Copy After:=Sheets(nbFeuille)

Activesheet.name = "S" & nbFeuille -1

End Sub

Si tu considère que la feuille "S" est une feuille modèle.

Merci beaucoup!!
Ça marche!!!

Sub essai()
Dim nbfeuile as integer 'Il est conseillé de toujours définir une variable avant de l'utiliser.
nbfeuille = Sheets.Count
Dim i As Integer 'Vous définissez cette variable mais vous ne l'utilisez pas.
Sheets("S").Copy After:=Sheets(nbfeuille)
Sheets(Sheets.Count).Name = "S" & "_" & nbfeuille + 1

End Sub

Loin d'être parfais :), mais c'est comme ça qu'on apprend.

Merci pour votre correction, c'est comme ça qu'on apprend

Bonne journée

Merci énormément!!
Ça marche à merveille!!

Bonne journée à vous aussi