Dupliquer 1 feuille plusieurs fois après la première feuille

Bonjour le forum,

J'essaye de dupliquer x fois une feuille dans mon classeur.

J'ai trouvé un code qui me permet de le faire et l'ai modifié pour copier la feuille voulue, jusque là, pas de soucis...

Maintenant j'essaye que ces copies se placent après le première feuille, et la je bloque...

J'ai essayé avec le "After:=Sheets(1)", le "before".... mais rien

Pouvez-vous regarder à mon code et me dire comment faire svp.

Merci d'avance

Sub CopierFeuilleMultiple()
Dim n As Integer
Dim i As Integer
On Error Resume Next

    n = InputBox("Combien de copies voulez-vous créer?")

    If n > 0 Then
        For i = 1 To n
            Worksheets("L.Blanco").Copy before:=ActiveWorkbook.Sheets(Worksheets.Count)
        Next
    End If

End Sub

bonjour Heavy_B

 Worksheets("L.Blanco").Copy after:=ActiveWorkbook.Sheets(1)

Bonjour BsAlv,

je pensais que le "(Worksheets.Count)" servait avec le comptage de duplicatas à faire, voilà mon erreur...

Merci

Rechercher des sujets similaires à "dupliquer feuille fois premiere"