Copier/coller une sélection en boucle et sauter des lignes

Bonjour, Madame, Monsieur,

Je souhaiterais obtenir de l'aide afin de réaliser une formule VBA permettant de copier/coller une sélection en boucle 600 fois en sautant après chaque boucle

4 lignes pour ne pas écraser la copie effectuée.

'Aller sur la feuille Modele'

Sheets("Modele").Activate

'Sélectionner l'écriture et copier'
ActiveSheet.Range(Cells(3, 1), Cells(6, 7)).Copy

'Boucle'
For x = 1 To 600

'Coller sur feuille Ecritures'
Sheets("Ecritures").Activate
Range("A1").Select
'Comment lui dire de descendre de 4 lignes après chaque boucle ?'
Next x

End Sub

Merci d'avance.

Bonne journée.

Bonjour,

Teste ceci

Merci beaucoup pour votre aide.

Bon week-end.