Tri alphabétique

Sub Test()
tablo = Array("Pierre", "Annie", "Paul", "Jean", "Alain", "Léone")
TriaBulle tablo
End Sub

Sub TriaBulle(T, Optional SensTri As Boolean = True)
    Dim Test As Boolean, I&, Temp
     Do
       Test = False
       For I = LBound(T) To UBound(T) - 1
         If (T(I) > T(I + 1) And SensTri) Or (T(I) < T(I + 1) And Not SensTri) Then
           Temp = T(I)
           T(I) = T(I + 1)
           T(I + 1) = Temp
           Test = True
         End If
       Next I
     Loop Until Not Test
  End Sub

T = Array("Pierre", "Annie", "paul", "Jean", "Alain", "Léon")
     Do
       Test = False
       For I = LBound(T) To UBound(T) - 1
         If (T(I) > T(I + 1)) Then
           Temp = T(I)
           T(I) = T(I + 1)
           T(I + 1) = Temp
           Test = True
         End If
       Next
     Loop Until Not Test
     ordre = Join(T, ", ")
     Wscript.Echo ordre

[quote="michel_m"] en fait, chaque strfiletext envoie des données dans un array dont l'indice 13 renvoie le nom, 1 l'adresse et le tél, et ces 3 données seront retranscrites dans strResuliats dans l'ordre nom, adresse,tél. C'est bien çà ?  [/quote]  

Oui c'est exactement ça.  

Voici un échantillon de mon fichier source. Je n'ai pas pu le mettre de façon intégral, puisqu'il contient énormément d'informations personnelles. J'ai modifier le texte pour éliminer ces informations, mais dans le fichier en pièces jointes, j'ai seulement mis 6 exemples de arrays présent dans mon fichier et non les 3500 comme j'ai actuellement dans le vrai fichier source. J,espère que ça sera correcte pour les fins de l'exercise.  

https://www.cjoint.com/?0KopgZ4kYSr   

[quote="michel_m"]quès aco "Achale" ? :o)[/quote]  

on boucle sur les 3500 arrays  
ReDim T_tri(2, 0)  
For cptr = 0 To 3500 ' 3500 à confirmer ou calculer ou autre style de boucle (do loop..., for each array... avec implémention de cptr avant redim preserve)  
     ReDim Preserve T_tri(2, cptr)  
     Tri(0, cptr) = arrayencours(13) 'identité  
     Tri(1, cptr) = Mid(arrayencours(1), 8, 2) 'adresse  
     Tri(2, cptr) = Mid(arrayencours(1), 11, 2) 'téléphone  
Next  


'Pour trier le tableau T_tri avec les 3500 arrays (technique des quicksort pour >1000 lignes)  

     Tablo = T_tri  
     Col = 0 'identité  
     Min = LBound(T_tri)  
     Max = UBound(T_tri)  

     'Tri rapide  
    Dim I&, J&, K&, M, Chaine  
     I = Min  
     J = Max  
     M = Tablo((Min + Max) / 2, Col)  
     While (I <= J)  
       While (Tablo(I, Col) < M And I < Max)  
         I = I + 1  
       Wend  
       While (M < Tablo(J, Col) And J > Min)  
         J = J - 1  
       Wend  
       If (I <= J) Then  
         For K = LBound(Tablo, 2) To UBound(Tablo, 2)  
           Chaine = Tablo(I, K)  
           Tablo(I, K) = Tablo(J, K)  
           Tablo(J, K) = Chaine  
         Next K  
         I = I + 1  
         J = J - 1  
       End If  
     Wend  
     If (Min < J) Then TriMulti Tablo, Col, Min, J  
     If (I < Max) Then TriMulti Tablo, Col, I, Max  
  End Sub