Transposer Tableau

=SI(LIGNE()=GAUCHE(INDEX($A$1:$A$100;MAX(ESTNUM(TROUVE("-";GAUCHE(
$A$1:$A$100;4)))*LIGNE($1:$100)));TROUVE("-";INDEX($A$1:$A$100;
MAX(ESTNUM(TROUVE("-";GAUCHE($A$1:$A$100;4)))*LIGNE($1:$100))))-1)*1;INDEX(
$A$1:$A$100;MAX(ESTNUM(TROUVE("-";GAUCHE($A$1:$A$100;4)))*LIGNE($1:$100))+
COLONNE()-3)&"";SI(LIGNE()*(COLONNE()-2)<PETITE.VALEUR(SI(ESTNUM(TROUVE("-";
GAUCHE($A$1:$A$100;4)))*LIGNE($1:$100)>0;ESTNUM(TROUVE("-";GAUCHE($A$1:
$A$100;4)))*LIGNE($1:$100));LIGNE()+1)-1;INDEX($A$1:$A$100;PETITE.VALEUR(
SI(ESTNUM(TROUVE("-";GAUCHE($A$1:$A$100;4)))*LIGNE($1:$100)>0;ESTNUM(
TROUVE("-";GAUCHE($A$1:$A$100;4)))*LIGNE($1:$100));LIGNE())+COLONNE()-3);""))

Sub transpose()
Dim tablo As Variant
Dim Tabconv() As Variant
Dim T As Integer, i As Integer, j As Integer
tablo = Worksheets("Feuil1").Range("A3").CurrentRegion
ReDim Tabconv(UBound(tablo) / 4, 5)
T = 0
For i = 1 To UBound(tablo)
    If Left(tablo(i, 1), Len(CStr(T))) = T + 1 And Asc(Mid(tablo(i, 1), Len(CStr(T)) + 1, 1)) > 60 Then
    T = T + 1
    j = 0
    End If
    j = j + 1
    Tabconv(T, j) = tablo(i, 1)
Next i
 
Range("C1").Resize(T, 5) = Tabconv
End Sub

=SI(ESTNA(EQUIV(LIGNE()&"-*";$A$1:$A$100;0));"";SI(EQUIV(LIGNE()&"*";
$A$1:$A$100;0)+COLONNE()-3>=SI(ESTNA(EQUIV(LIGNE()+1&"-*";$A$1:$A$100;0));
NBVAL($A$1:$A$100)+1;EQUIV(LIGNE()+1&"-*";$A$1:$A$100;0));"";INDEX(
$A$1:$A$100;EQUIV(LIGNE()&"*";$A$1:$A$100;0)+COLONNE()-3)))