Trier un fichier excel

Option Explicit
'Structure qui regroupe les données de la feuille
Private Type StructmyTab
    tA As String    'Pour la colonne A
    tB As String    'Pour la colonne B
End Type

Private myTab() As StructmyTab
Private index As Long
Private ws As Worksheet

Sub MainTri()

    ReDim myTab(index)     'Initialisation de la structure
    initTab      'lancement de la procédure initTab
    triFeuille   'lancement de la procédure d'écriture dans la feuille
    
End Sub

Private Sub initTab()
Dim lig As Long     'variable compteur de ligne

    'On déclare un objet Worksheet
    Set ws = Worksheets(1)  'ou Set ws = Worksheets("NomDeMaFeuille")
    '
    lig = 2     'numéro de la première ligne testée
    '
    With ws
        'On teste tant que la cellule n'est pas vide
        While .Range("A" & lig).Value <> ""
            'On vérifie si la valeur existe dans le tableau
            If doesExist(lig, .Range("A" & lig).Value) = False Then 'Si le retour est FAUX
                'On alloue de la mémoire au tableau myTab
                ReDim Preserve myTab(index)
                'on affecte la valeur au tableau
                myTab(index).tA = .Range("A" & lig).Value
                myTab(index).tB = .Range("B" & lig).Value
                'on ajoute 1 à l'index du tableau
                index = index + 1
            Else
                lig = lig - 1
            End If
        'On passe à la ligne suivante
        lig = lig + 1
        Wend
    End With
    
End Sub

Private Sub triFeuille()
Dim i As Long   'variable index de boucle
Dim lig As Long     'variable compteur de ligne

    lig = 2     'numéro de la première ligne testée
    '
    With ws
        'On efface le contenu de la feuille à partir de A2 à F65536
        .Range("A2:F65536").Select
        Selection.Delete
        'On parcours chaque occurrences du tableau
        For i = LBound(myTab()) To UBound(myTab())
           'On réécrit dans la feuille les données du tableau
           .Range("A" & i + 2).Value = myTab(i).tA
           .Range("B" & i + 2).Value = myTab(i).tB
        Next i
    End With
    
End Sub

Private Function doesExist(ByVal ligne As Long, ByVal ind As String) As Boolean
Dim i As Long   'variable index de boucle

    'On parcours chaque occurrences du tableau
    For i = LBound(myTab()) To UBound(myTab())
        If myTab(i).tA = ind Then  'Si c'est égal
            doesExist = True    'On retourne VRAI
            'on ajoute au tableau la valeur de la colonne B
            myTab(i).tB = myTab(i).tB & " " & ws.Range("B" & ligne).Value
            'On supprime la ligne
            Rows(ligne).Delete
            Exit Function       'On sort de la function
        End If
    Next i
    
    doesExist = False
    
End Function