Copier coller une zone un nombre de fois défini

Bonjour communauté,

Je rencontre un problème dans l'élaboration d'un classeur excell.

Pour un projet j'aurais besoin d'une macro qui exécute un ensemble d'actions. En résumé, je dois copier coller un certain nombre de fois une zone d'une feuille 1 à une autre feuille 2et imprimer la feuille 2

- La zone a copier se situe sur ma feuille nommée FEUILLEX dans mon classeur et comprend les cellules A1 à C9

- Le nombre de fois que cette zone doit être copiée se trouve également sur ma feuille nommée FEUILLEX en cellule A20 indiquée par un chiffre.

- Cette zone doit donc être copiée collée sur une autre feuille du même classeur nommée FEUILLEY et autant de fois que la cellule A20 de la FEUILLEX l'indique.

Pour finir, il faudrait imprimer la FEUILLEY.

Merci d'avance pour votre aide. Belle journée.

Bonjour,

à tester,

Sub test()
Dim sh1 As Worksheet, sh2 As Worksheet, i As Long, rw As Long
Set sh1 = Sheets("FEUILLEX")
Set sh2 = Sheets("FEUILLEY")
rw = 1
For i = 1 To sh1.Range("A20").Value
    sh1.Range("A1:C9").Copy sh2.Range("A" & rw)
    rw = rw + 9
Next
sh2.PrintPreview
'sh2.PrintOut pour une impression
End Sub