Sub mise_colonne()
Dim i&, j&
Dercolonne = Range("A1").End(xlToRight).Column + 1
For i = 1 To Dercolonne Step 3
Range(Cells(1, i), Cells(6, i)).Cut Destination:=Range(Cells(13, i + 2), Cells(18, i + 2))
Next i
For j = 2 To Dercolonne Step 3
Range(Cells(1, j), Cells(6, j)).Cut Destination:=Range(Cells(7, j + 1), Cells(12, j + 1))
Next j
End Sub