Copier une colonne avec saut de 3 colonnes entre chaque.

Bonjour à tous !


Je suis bloqué sur un module VBA qui me permettrait de faire la chose suivante.
En gros, j'ai une colonne (de B1 à B450), et je souhaite copier-coller les formules qu'elles contiennent, à partir de G1; en sautant 3 colonnes à chaque fois, et ce, jusqu'à ce que le nombre de copies soit égal à 450.



Sub test()

Ecart = 3
Range("B1:B450").Select
Selection.Copy
Range("G1").Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False

While Range("G" & 1) =
ActiveSheet.Paste
Selection(0, Ecart).Select
Wend

End Sub

Par avance, milles excuses pour la bouillie Vbaienne que je viens de faire. Je débute seulement.
Merci pour votre aide !