XL 2010 Trier, en VBA, un Array par ordre alphabétique

Sub test()
Dim liste, ech As Boolean, i&, aux
liste = Array("jaune", "vert", "orange", "blanc", "rouge", "noir", "fuchsia", "marron")
   Do
      ech = False
      For i = 0 To UBound(liste) - 1
         If liste(i) > liste(i + 1) Then ech = True: aux = liste(i): liste(i) = liste(i + 1): liste(i + 1) = aux
      Next i
   Loop Until ech = False
   MsgBox Join(liste, vbLf)
End Sub

  ' Croissant
        ' croissant a, g, ref, d
  ' Ou
  '
  ' Décroissant
        ' décroissant a, g, ref, d
  '

pour afficher le contenu du tableau dans une MsgBox
MsgBox Join(liste, vbLf)

Sub test()
    Dim Liste As Variant
    Liste = Array("jaune", "vert", "orange", "blanc", "rouge", "noir", "fuchsia", "marron")
    '
    ' Choisir croissant (Pour le tri)
    tri Liste, LBound(Liste), UBound(Liste)
    MsgBox Join(liste, vbLf)
End Sub
'
Sub tri(a As Variant, gauc, droi)  ' Quick sort
  ref = a((gauc + droi) \ 2)
  g = gauc: d = droi
  Do
  '
  ' Choix du tri avec appel de la fonction ci-dessous :
  ' ------------------------------------------------------
  '
  ' Croissant
         croissant a, g, ref, d
  '
  ' Ou
  '
  ' Décroissant
        ' décroissant a, g, ref, d
  '
    If g <= d Then
      temp = a(g): a(g) = a(d): a(d) = temp
      g = g + 1: d = d - 1
    End If
  Loop While g <= d
    If g < droi Then Call tri(a, g, droi)
    If gauc < d Then Call tri(a, gauc, d)
End Sub
'
Sub croissant(a, g, ref, d)
' Pour un tri croissant
    Do While a(g) < ref: g = g + 1: Loop
    Do While ref < a(d): d = d - 1: Loop
End Sub
'
Sub décroissant(a, g, ref, d)
' Pour un tri décroissant
    Do While a(g) > ref: g = g + 1: Loop
    Do While ref > a(d): d = d - 1: Loop
End Sub

Set arrs = CreateObject("System.Collections.ArrayList")

set dicoOrder= CreateObject("System.Collections.SortedList")

Sub test()
    liste = Array("blanc", "marron", "fuchsia", "rouge", "jaune", "noir", "orange", "vert")
    liste2 = sortedarray(liste)
    MsgBox Join(liste2)

End Sub

Function sortedarray(tbl)
    Dim arrs As Object
    Set arrs = CreateObject("System.Collections.ArrayList")
    With arrs:
        For i = LBound(tbl) To UBound(tbl): .Add tbl(i): Next
        .Sort'on tri
    End With
    sortedarray = arrs.toarray
End Function

Sub testAvecArray()
    liste = Array("blanc", "marron", "fuchsia", "rouge", "jaune", "noir", "orange", "vert")
    listordre = simplyarrSort(liste)
    MsgBox Join(listordre, ",")
End Sub

Function simplyarrSort(tbl)
    Dim I&, E&
     For I = LBound(tbl) To UBound(tbl)
        For E = I + 1 To UBound(tbl) - 1
            If tbl(E) < tbl(I) Then temp = tbl(I): tbl(I) = tbl(E): tbl(E) = temp
        Next
    Next
    simplyarrSort = tbl
End Function

Function simplyarrSort(tbl)
    Dim I&
    For I = LBound(tbl) + 1 To UBound(tbl)
        If tbl(I) < tbl(I - 1) Then
            temp = tbl(I - 1): tbl(I - 1) = tbl(I): tbl(I) = temp
            I = I - 2
            If I < 0 Then I = 0
        End If
    Next
    simplyarrSort = tbl
End Function

Sub testAvecArray()
    liste = Array("blanc", "marron", "fuchsia", "rouge", "jaune", "noir", "orange", "vert")
    
Debug.Print Join(simplyarrSort(liste), ";"), Join(simplyarrSort(liste, True), ";")
End Sub
Function simplyarrSort(tbl, Optional Decrm As Boolean = False)
    Dim I&
    For I = LBound(tbl) + 1 To UBound(tbl)
        If tbl(I + Decrm) < tbl(I + Not Decrm) Then
            temp = tbl(I + Not Decrm): tbl(I + Not Decrm) = tbl(I + Decrm):   tbl(I + Decrm) = temp
            I = I - 2
            If I < 0 Then I = 0
        End If
    Next
    simplyarrSort = tbl
End Function