combobox alphabétique

Private Sub UserForm_Initialize()
  Dim temp()
  With Sheets("données")
    temp = Range(.[A2], .[A65000].End(xlUp))
  End With
  Call tri(temp, 1, UBound(temp, 1))
  Me.RechNom.List = temp
End Sub

Sub tri(a(), gauc, droi)          ' Quick sort
 ref = a((gauc + droi) \ 2, 1)
 g = gauc: d = droi
 Do
     Do While a(g, 1) < ref: g = g + 1: Loop
     Do While ref < a(d, 1): d = d - 1: Loop
     If g <= d Then
       temp = a(g, 1): a(g, 1) = a(d, 1): a(d, 1) = 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

Private Sub UserForm_Initialize()
Dim X As Byte, Y As Byte
Dim temp As String
IniCombo
With RechNom
For X = 0 To .ListCount - 1
    For Y = 0 To .ListCount - 1
        If .List(X) < .List(Y) Then
            temp = .List(X)
            .List(X) = .List(Y)
            .List(Y) = temp
        End If
    Next Y
    Next X
End With
End Sub

Private Sub UserForm_Initialize()
Dim X As Byte, Y As Byte
Dim temp As String
IniCombo
With RechNom
For X = 0 To .ListCount - 1
    For Y = 0 To .ListCount - 1
        If .List(X) < .List(Y) Then
            temp = .List(X)
            .List(X) = .List(Y)
            .List(Y) = temp
        End If
    Next Y
    Next X
End With
End Sub

Private Sub UserForm_Initialize()
  Dim temp()
  With Sheets("données")
    temp = Range(.[A2], .[A65000].End(xlUp))
  End With
  Call tri(temp, 1, UBound(temp, 1))
  Me.RechNom.List = temp
End Sub

Sub tri(a(), gauc, droi)          ' Quick sort
 ref = a((gauc + droi) \ 2, 1)
 g = gauc: d = droi
 Do
     Do While a(g, 1) < ref: g = g + 1: Loop
     Do While ref < a(d, 1): d = d - 1: Loop
     If g <= d Then
       temp = a(g, 1): a(g, 1) = a(d, 1): a(d, 1) = 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

Private Sub UserForm_Initialize()
t = Timer
'IniCombo
Dim c As Range
Dim tablo()
Dim i As Integer, j As Integer
Dim temp As String
Dim present As Boolean
ReDim tablo(1 To 1)
tablo(1) = Cells(1, 1)
For Each c In Sheets("données").Range("A1:A" & Range("a65536").End(xlUp).Row)
    present = False
    For i = 1 To UBound(tablo)
        If tablo(i) = c Then present = True
    Next i
    If Not present Then
        ReDim Preserve tablo(1 To UBound(tablo) + 1)
        tablo(UBound(tablo)) = c
    End If
    For i = 1 To UBound(tablo)
        For j = 1 To UBound(tablo)
            If tablo(i) < tablo(j) Then
                temp = tablo(i)
                tablo(i) = tablo(j)
                tablo(j) = temp
            End If
        Next j
    Next i
Next c
MsgBox Timer() - t
RechNom.List = tablo
End Sub