Transformer des lignes en colonnes

Public Sub copier()
Dim col As Long, lig As Long, idx As Long, tbd
tbd = Sheets("Feuil1").UsedRange.Columns(1).Cells.Value
lig = 1: idx = 1
With Sheets("Feuil2")
    While idx <= UBound(tbd)
        For col = 1 To 3
            If idx <= UBound(tbd) Then _
            .Cells(lig, col).Value = tbd(idx, 1)
            idx = idx + 1
        Next col
        lig = lig + 1
    Wend
End With
End Sub

' constantes à modifier selon ta configuration
' feuille source
Const FS = "Feuil1"
Const lidebFS = 2
Const coFS = 1
' feuille but
Const FB = "Feuil1"
Const lidebFB = 2
Const codebFB = 3
' nombre de colonnes pour la copie
Const nbco = 2

Public Sub OK()
Dim liFS As Long, lifinFS As Long, plageFS As Range
Dim liFB As Long
Application.ScreenUpdating = False
liFB = lidebFB
With Sheets(FS)
  lifinFS = .Cells(Rows.Count, coFS).End(xlUp).Row
  liFS = lidebFS
  While liFS <= lifinFS
    Set plageFS = .Range(.Cells(liFS, coFS), .Cells(liFS + nbco - 1, coFS))
    plageFS.Copy
    Sheets(FB).Select
    Sheets(FB).Cells(liFB, codebFB).PasteSpecial Transpose:=True
    liFS = liFS + nbco
    liFB = liFB + 1
  Wend
End With
Application.ScreenUpdating = True
End Sub