Copier coller tableau autant de fois qu'on le souhaite

Bonjour,

J'ai créé un tableau simple avec des formules simple et un graphique.

J'aimerais créer un bouton qui copie colle le tableau avec les formules et le graphique autant de fois que l'utilisateur le souhaite.

Je ne sais pas comment faire. J'ai créer un macro pour faire un copier coller mais je ne sais pas comment faire pour répéter cette action autant de fois qu'on le souhaite.

Voici la macro que faut-il que je rajoute ?

Merci d'avance

Bonne journée à tous.

Sub profil()

'

' profil Macro

'

'

ActiveWindow.SmallScroll Down:=-9

Range("A11:W33").Select

Selection.Copy

ActiveWindow.SmallScroll Down:=9

Range("A36").Select

ActiveSheet.Paste

ActiveWindow.SmallScroll Down:=15

End Sub

Bonjour,

pouvez vous envoyer le fichier ?

s'il est à protéger, rendez-le anonyme...

Les questions avec fichiers reçoivent souvent des réponses plus rapides et mieux adaptées.

@ bientôt

LouReeD

Bonjour, lkgueasy

Un code qui me vient de frangy et qui copie 5 fois la zone A11:W33 for x = 1 to 5

Pour copier plus, augmenter la valeur de x : 1 To 10

Sub Macro1()
        Application.ScreenUpdating = False
        With Range("Zone_Copie")   ' A11:W33
            .Copy
            For x = 1 To 5
                ActiveSheet.Paste Destination:=.Offset(25 * x, 0)
            Next x
        End With
        Application.CutCopyMode = False
        Range("A1").Select
    End Sub

Amicalement

Pierrot