Transformer un tableau

Bonjour,

dans un précédent message j'ai mis:

J'ai un tableau:

A | A1 | A2-1

A | A1 | A2-2

B | B1 | B2-2

Je cherche une macro qui me permettrait de copier les données de tel sorte

A

A1

A2-1

A2-2 (si les données en colonne 2 identiques)

B

B1

B2-2

le code qui suit permet de répondre à la demande

par contre je n'arrive pas à l'adapter au vrai tableau qui contient 31 colonnes

je joints le fichier comme exemple

Sub Test()
    Dim a$, b$, i%, n%, it%, T()
    With ActiveSheet 'si lancement à partir feuille, sinon à préciser
       n = 4 'dernière ligne du tableau source commençant ligne 2
           'devra être calculée selon méthode adaptée au contexte réel
       For i = 2 To n
            If .Cells(i, 1) <> a Then
                a = .Cells(i, 1): it = it + 1
                ReDim Preserve T(1 To 3, 1 To it): T(1, it) = a
            End If
            If .Cells(i, 2) <> b Then
                b = .Cells(i, 2): it = it + 1
                ReDim Preserve T(1 To 3, 1 To it): T(2, it) = b
            End If
            it = it + 1: ReDim Preserve T(1 To 3, 1 To it): T(3, it) = .Cells(i, 3)
            'si 3e colonne toujours servie, sinon, sous test...
       Next i
        n = n + 10 'juste pour positionner résultats du test, à voir selon destination réelle
       With .Cells(n, 1).Resize(it, 3)
            .Value = WorksheetFunction.Transpose(T)
            .HorizontalAlignment = xlCenter
            With .Borders
                .LineStyle = xlContinuous
                .Weight = xlThin
            End With
        End With
    End With
End Sub