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