Copier lignes d'un tableau x fois dans une nouvelle feuille

Bonjour,

M'inspirant de différents codes, j'essaie de créer le mien avec un succès très relatif.

Je souhaite copier toutes les lignes du tableau de la feuille 1 du nombre indiqué en cellule J de la même ligne vers la feuille 2.

Le code ne fait que copier la 1ère ligne 1 fois.

Est-ce que l'un d'entre vous aurait la solution?

Merci de votre aide...

Bonjour,

Sub Macro1()
Dim sh1, sh2
Dim LastRw1 As Long, LastRw2 As Long, i As Long, n As Integer
Set sh1 = Sheets("Feuil1")
Set sh2 = Sheets("Feuil2")
LastRw1 = sh1.Cells(Rows.Count, 1).End(xlUp).Row
LastRw2 = sh2.Cells(Rows.Count, 1).End(xlUp).Row + 1

For i = 2 To LastRw1
  n = Int(sh1.Cells(i, 10)) + LastRw2 - 1
  sh2.Range(Cells(LastRw2, 1).Address, Cells(n, 10).Address).Value = sh1.Range(Cells(i, 1).Address, Cells(i, 10).Address).Value
  LastRw2 = sh2.Cells(Rows.Count, 1).End(xlUp).Row + 1
Next i
End Sub

Merci!! Ca fonctionne parfaitement.