Sur une idée de SilkyRoad, au chapitre "Comment trier le contenu d'un ComboBox par ordre alphabétique ?",
le code suivant réalise dans un tableau() le tri alphabétique d'une plage de données.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub TriAlpha()
Dim i As Integer, j As Integer, Tablo As Variant
Dim strTemp As String, tablo2
    Tablo = Range("A2:A" & Range("A65535").End(xlUp).Row).Value
    ReDim tablo2(UBound(Tablo))
    For i = 1 To UBound(Tablo)
        tablo2(i) = Tablo(i, 1)
    Next i
    For i = 1 To UBound(tablo2)
        For j = 1 To UBound(tablo2)
            If tablo2(i) < tablo2(j) Then
                strTemp = tablo2(i)
                tablo2(i) = tablo2(j)
                tablo2(j) = strTemp
            End If
        Next j
    Next i
End Sub
Pour l'utiliser :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
ComboBox1.List() = tablo2 'dans un userform
Worksheets("Feuil1").ComboBox1.List() = tablo2 'dans une feuille de calculs
On ne sait jamais, ça peut servir...