Tri alphabétique dans ComboBox

Private Sub UserForm_Initialize()
  Set f = Sheets("feuil1")
  Set MonDico = CreateObject("Scripting.Dictionary")
  For Each c In Range(f.[H4], f.[H65000].End(xlUp))
    MonDico(c.Value) = c.Value
  Next c
  temp = MonDico.items
  Call Tri(temp, LBound(temp), UBound(temp))
  Me.ComboBox7.List = temp
End Sub

Private Sub ComboBox7_Change()
  Set MonDico = CreateObject("Scripting.Dictionary")
  For Each c In Range([H4], [H65000].End(xlUp))
    If c = Me.ComboBox7 Then MonDico(c.Offset(0, -4).Value) = c.Offset(0, -4).Value
  Next c
  temp = MonDico.items
  Call Tri(temp, LBound(temp), UBound(temp))
  Me.ComboBox6.List = temp
End Sub

Private Sub ComboBox6_Change()
  Set MonDico = CreateObject("Scripting.Dictionary")
  For Each c In Range([d4], [d65000].End(xlUp))
    If c = Me.ComboBox6 Then MonDico(c.Offset(0, -1).Value) = c.Offset(0, -1).Value
  Next c
  temp = MonDico.items
  Call Tri(temp, LBound(temp), UBound(temp))
  Me.ComboBox5.List = temp
End Sub

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

Private Sub ComboBox7_Change()
ComboBox5.Clear
ComboBox6.Clear
With Sheets("Feuil1")
  .Range("U1:U65536").ClearContents
  For n = 3 To .Range("D65536").End(xlUp).Row
    If CStr(.Range("H" & n)) = ComboBox7 Then
      Set ch = .Range("U:U").Find(.Range("D" & n), LookIn:=xlValues, lookat:=xlWhole)
      If ch Is Nothing Then
        .Range("U" & .Range("U65536").End(xlUp).Row + 1) = .Range("D" & n)
      End If
    End If
  Next n
  .Columns("U:U").Sort Key1:=Range("U2"), Order1:=xlAscending, Header:=xlNo, _
    OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
    DataOption1:=xlSortNormal
  For n = 1 To .Range("U65536").End(xlUp).Row
    ComboBox6.AddItem .Range("U" & n)
  Next
  .Range("U:U").ClearContents
End With
End Sub

Private Sub ComboBox6_Change()
ComboBox5.Clear
With Sheets("Feuil1")
  .Range("U1:U65536").ClearContents
  For n = 3 To .Range("D65536").End(xlUp).Row
    If .Range("H" & n) = ComboBox7 And .Range("D" & n) = ComboBox6 Then
      Set ch = .Range("U:U").Find(.Range("C" & n), LookIn:=xlValues, lookat:=xlWhole)
      If ch Is Nothing Then
        .Range("U" & .Range("U65536").End(xlUp).Row + 1) = .Range("C" & n)
      End If
    End If
  Next n
  .Columns("U:U").Sort Key1:=Range("U2"), Order1:=xlAscending, Header:=xlNo, _
    OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
    DataOption1:=xlSortNormal
  For n = 1 To .Range("U65536").End(xlUp).Row
    ComboBox5.AddItem .Range("U" & n)
  Next
  .Range("U:U").ClearContents
End With
End Sub