XL 2016 Boucle de copie pour colonne

 Sub recopie()

w = 3 'nb d'itérations de copie

'copie des colonnes G et H
For n = 9 To 9 + 2 * (w - 1) Step 2 '9 = colonne I
    Columns("G:H").Copy Destination:=Columns(n)
Next n

End Sub

Sub Création_Matelas()
'
' Création Macro
'
    Dim drLig As Long
    Dim n As Integer
    drLig = Sheets("Feuil1").Range("C" & Rows.Count).End(xlUp).Row

    Range("H6:H25").ClearContents
    Range("H33:H60").ClearContents
    Range("H5").ClearContents
    Range("G2:G3").ClearContents
    Range("G1:H1").ClearContents
    w = drLig - 3
    x = 4
    y = 4
    Z = 7
    For n = 9 To 9 + 2 * (w - 1) Step 2
    Columns("G:H").Copy Destination:=Columns(n)
        Cells(x - 2, Z).Value = Sheets("Feuil1").Cells(y, x).Value
        Cells(x - 1, Z).Value = Sheets("Feuil1").Cells(y, x + 3).Value
        Cells(x + 53, Z + 1).Value = Sheets("feuil1").Cells(y, x + 5).Value
        Z = Z + 2
        y = y + 1
   Next n
End Sub