Dupliquer feuilles du classeur

Bonjour,

Je voulais savoir s'il était possible de dupliquer les feuilles d'un classeur en fonction d'un nombre entré sur la feuill1.

Par exemple en "B6" je rentre le nombre 5 et là je souhaiterais que ma feuill2 se duplique en 5 exemplaires tout en conservant ma feuill1 qui elle est différente.

Tout en sachant que dans ma feuill2 il y a énormément de marcos.

Merci beaucoup

Bonjour,

voici une macro à insérer dans un module

Sub duplicata()
For i = 1 To Worksheets("feuil1").Range("B6")
Worksheets("feuil2").Copy after:=Worksheets(Worksheets.Count)
Next i
End Sub

Bonjour,

J'ai essayé le code proposé mais je n'arrive pas à le faire fonctionner..

Je me dépatouille tant bien que mal avec vba.....

J'ai ajouté un petit fichier test pour comprendre mon erreur

Merci

bonjour à tous

bonjour JeremyW,

Il faut insérer la macro dans un module, vois ci joint

cordialement

Stéphane

JeremyW a écrit :

Bonjour,

J'ai essayé le code proposé mais je n'arrive pas à le faire fonctionner..

Je me dépatouille tant bien que mal avec vba.....

J'ai ajouté un petit fichier test pour comprendre mon erreur

Merci

bonjour,

introduire une valeur en B6 sur la feuille feuil1 et lancer la macro via Alt-F8.

N'ayant jamais utilisé de module, là était mon erreur.

J'ai intégrer l'action Alt F8 dans un option Button

C'est parfait comme ça

Merci beaucoup pour votre aide