Copie en masse d'une plage

Bonjour,

Je suis actuellement sur un sujet nécessitant de dupliquer une plage plusieurs milliers de fois.

Etant novice et ayant une échéance se rapprochant, je me tourne vers vous en dernier recours.

Sujet : je souhaite dupliquer la plage "A2" à "C13" autant de fois que le nombre indiquer dans la cellule "D1".

J'avais trouvé ce bout de vba permettant de dupliquer une ligne X fois, cependant, je n'arrive pas a le mettre en forme pour dupliquer une plage complète :

Sub CopieMaPlageEnFeuil2()

Dim li As Integer

For li = 1 To [G2]

Range([A2], [G2]).Copy Worksheets("Feuil2").Cells(1 + li, 1)

Next li

End Sub

Bonjour,

Un essai à tester :

Sub CopieMaPlageEnFeuil2()
   Dim li As Integer
   For li = 1 To Range("D1")
      Range("A2:C13").Copy Sheets("Feuil2").Cells(li * 12 - 11, 1)
   Next li
End Sub

Merci pour ta réponse.

Malheureusement, lorsque je lance la macro, cela efface la ligne 1 à partir de la duplication 2.

Ci-joint, le fichier de test, avec en feuil1 le résultat obtenu et dans l'onglet "base", les données sources pour le test.

Autre essai :

Sub CopieMaPlageEnFeuil2()
   Dim li As Long, Plage As Range, li2 As Long
   With Sheets("MaFeuille")
      Set Plage = .Range("A2:C13")
      For li = 1 To .Range("D1")
         li2 = Sheets("Feuil2").Range("A" & Rows.Count).End(xlUp).Row + 1
         Plage.Copy Sheets("Feuil2").Range("A" & li2)
      Next li
   End With
End Sub

PS : le nom des feuilles est à adapter

Rechercher des sujets similaires à "copie masse plage"