DEFI MACRO : Transposition d'une colonne en plusieurs colonnes

Sub transpose()
Dim DerLigne&, Plage, i&, j&, l&, NbLigne As Byte, k As Byte
DerLigne = Range("A" & Rows.Count).End(xlUp).Row
Set Plage = Range("A2:A" & DerLigne)
Tablo = Range("A2:A" & DerLigne)
NbLigne = 3
Dim TabloTranspose
ReDim TabloTranspose(1 To (UBound(Tablo) + 1) / NbLigne, 1 To NbLigne)
j = 1
l = 1
    For i = 1 To (UBound(Tablo) + 1) / NbLigne
        For k = 0 To 2
        On Error Resume Next
            TabloTranspose(j, k + 1) = Tablo(k + l, 1)
        Next k
    j = j + 1
    l = l + NbLigne
    Next i
Range("F1").Resize(UBound(TabloTranspose, 2), UBound(TabloTranspose, 1)) _
= Application.transpose(TabloTranspose)
End Sub

=SI(LIGNES($1:1)<=3;INDIRECT(ADRESSE(LIGNES($1:1)+(COLONNES($A:A)-1)*3+1;1));"")&""

=DECALER($A2;(COLONNE(A1)-1)*3;0)

Sub transpose2()
Dim Derligne As Long, i As Long, Colonne As Long, Ligne As Long
    Colonne = 5
    Derligne = Range("A" & Rows.Count).End(xlUp).Row
    For i = 2 To Derligne
        Ligne = ((i - 2) Mod 3) + 1
        If Ligne = 1 Then Colonne = Colonne + 1
        Cells(Ligne, Colonne).Value = Cells(i, 1).Value
    Next i
End Sub