Encore des problème de présentation de combobox tri alphabétique & suppr des doublons

Sub selectionne_four()
selection_forunisseur.ComboBox3.Clear 'vide le combo
Set dico = CreateObject("Scripting.Dictionary") 'création dictionnaire
For Each c In Feuil1.Range(Feuil1.[D4], Feuil1.[D3].End(xlDown)) 'boucle de D4 à la dernière ligne
If Not dico.Exists(c.Value) And c.Value <> "" Then _
dico.Add c.Value, c.Value
Next c
a = dico.items 'Obtient les éléments
For k = 0 To UBound(a) - 1 ' Boucle To nbre de valeur du tablo a
'à savoir le tablo commence par l'index 0
 For b = k + 1 To UBound(a)
 'dans la liste le 1er nom est a(0) et le 2eme est a(1)
 '1er passage a(1)<a(0) si oui il faut donner à a(0) la valeur de a(1) et à a(1)la valeur de a(0)
 'ce qui se fait à l'aide de la variable temp pour conserver la valeur et la reécrire ensuite plus avant
 'cela boucle sur tout le tablo et reboucle sur tous les items
   If a(b) < a(k) Then
   temp = a(b) 'comme on va remplacer a(b) on conserve a(b) en temp pour le remettre en a(k)
   a(b) = a(k)
   a(k) = temp
   End If
 Next
Next
For k = 0 To dico.Count - 1 'mets éléments
selection_forunisseur.ComboBox3.AddItem a(k)
Next
selection_forunisseur.Show
End Sub

Private Sub UserForm_Initialize()
  Set f = Sheets("Stock Sécurité")
  temp = Application.Transpose(Range("D4:D" & [d65000].End(xlUp).Row))
  Call Tri(temp, LBound(temp), UBound(temp))
  Me.ComboBox3.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