Retour a la ligne de colonne

Sub RetourLigne()
Dim DerLig As Long
Dim Deb As Long
Dim Plage As Variant
Application.ScreenUpdating = False
DerLig = Range("A1", Range("A65535").End(xlUp)).Rows.Count
Deb = 10
Range("A3:D3").Copy Destination:=Range("A10")
For i = 4 To DerLig
    Set Plage = Range("A" & i & ":L" & i)
    For j = 1 To 5
       Cells(Deb + j, 1) = Plage(1, 1)
       Cells(Deb + j, 2) = Plage(1, 2)
       Cells(Deb + j, 3) = Plage(1, j * 2 + 1)
       Cells(Deb + j, 4) = Plage(1, j * 2 + 2)
    Next j
    Deb = Range("A1", Range("A65535").End(xlUp)).Rows.Count
Next i
Application.CutCopyMode = False
Application.ScreenUpdating = False
End Sub