créer des feuilles....

[alexandre]

Dans un classeur, j'ai 3 feuilles de départ. Je souhaite pouvoir recopier la 3ème feuille (mise en forme, liens sur la 1ère et 2ème feuilles inclus) de façon rapide....de façon à créer 150 nouvelles feuilles.

Je peux le faire bien sûr manuellement, mais je souhaitais savoir s'il existe une façon plus rapide (macro ou autre)


Merci

 

[Sebb]

Salut
il faut simplement copier ta feuille de départ

Sub Copie
combien = InputBox("Combien de feuille identiques voulez vous ?")
Sheets("HuHu").Select
While combien > 1
combien = combien - 1
Sheets("HuHu").Copy After:=Sheets(Sheets.Count)
Wend
End Sub
a+