Duplication ligne avec un pas défini

Bonjour,
Je souhaite dupliquer les lignes d'un tableau n fois. le problème est que je ne parviens à les dupliquer qu'une seule fois.
Auriez vous une idée du problème ?
Voici mon code, d'avance merci pour votre aide.

Cordialement,

Sub duplication_art()

Dim n As Integer
Dim x As Integer
Dim i As Integer

x = InputBox("indiquer nbre copie")

n = Range("A" & Rows.Count).End(xlUp).Row

For i = 1 To x Step 3

Range("A" & (2) & ":KL" & n).Copy Range("A" & (n + 1) & ":KL" & (n * 2) - 1)

Next i


End Sub

Bonjour,

une des propositions, non optimisée et il n'y a pas de gestion d'erreur :

Sub LRD()
    ligne = Range("A" & Rows.Count).End(xlUp).Row + 1
    For i = 1 To InputBox("indiquer nbre copie")
        Range("A2:KL4").Copy Destination:=Cells(ligne + (i - 1) * 3, 1)
    Next i
End Sub

Le fichier :

@ bientôt

LouReeD

Merci beaucoup @loureeD, ça fonctionne parfaitement.

Encore merci à vous pour votre aide !

Bonne fin de journée

Bonsoir,

merci pour votre retour, et je suis content que vous puissiez avancer dans votre projet avec cette solution !

@ bientôt

LouReeD