Combo et doublons

Private Sub UserForm_Initialize()
Dim d As New Scripting.Dictionary
Dim c As Range

NomUtilisateur = "Feuil1"

  'Alimentation des noms à partir de la feuille (NomUtilisateur)
  Sheets(NomUtilisateur).Activate
  D_L = Range("E" & Rows.Count).End(xlUp).Row
  'Dictionnaire sans doublons
  For Each c In Range(Cells(2, "E"), Cells(D_L, "E")).Cells
    If Not d.Exists(c.Value) Then d.Add c.Value, ""
  Next c
  'Définition liste combo
  ComboBox2.List =d.Keys

End Sub

Private Sub UserForm_Initialize()
Dim d As New Scripting.Dictionary
Dim t As Variant
Dim c As Range

NomUtilisateur = "Feuil1"

  'Alimentation des noms à partir de la feuille (NomUtilisateur)
  Sheets(NomUtilisateur).Activate
  D_L = Range("E" & Rows.Count).End(xlUp).Row
  'Dictionnaire sans doublons
  For Each c In Range(Cells(2, "E"), Cells(D_L, "E")).Cells
    If Not d.Exists(c.Value) Then d.Add c.Value, ""
  Next c
  'Tableau à trier
  t = d.Keys
  d.RemoveAll
  'Tri
  Call Tri(t, LBound(t), UBound(t))
  'Definition liste combo
  ComboBox2.List = t

End Sub

Private Sub Tri(table As Variant, premier As Integer, dernier As Integer)
' Tri rapide (Quick sort), répartit les éléments de part et d'autre d'un pivot médian :
'  - éléments inférieurs, avant le pivot
'  - éléments supérieurs, après le pivot
' S'appelle récursivement pour chaque partie jusqu'à ce que chaque éléments soit en place.
'
' Arguments : table               [in/out] Table à trier
'             premier             [in] index du premier élément à trier
'             dernier             [in] index du dernier élément à trier
'
Dim pivot As Variant
Dim temp As Variant
Dim p As Integer
Dim d  As Integer

  p = premier
  d = dernier
  pivot = table((p + d) \ 2)
  Do
    Do While table(p) < pivot
      p = p + 1
    Loop
    Do While pivot < table(d)
      d = d - 1
    Loop
    If p <= d Then
      'permuter
      temp = table(p): table(p) = table(d): table(d) = temp
      p = p + 1
      d = d - 1
    End If
  Loop While p <= d
  'Appels récursifs
  If p < dernier Then Call Tri(table, p, dernier)
  If premier < d Then Call Tri(table, premier, d)

End Sub

Option Explicit
Option Compare Text 'Ne fait pas de différence entre Maju et Minus.

Sub InitCombo()
Dim Lig As Long, D_L As Long
    With Sheets(NomUtilisateur)
        'Selection de la derniere ligne utilisée colonne de la feuille FTP
        D_L = .Range("E" & Rows.Count).End(xlUp).Row
        'Definition liste combo
        For Lig = 2 To D_L
            ComboBox2.Text = .Cells(Lig, 5)
            If ComboBox2.ListIndex < 0 Then
                ComboBox2.AddItem .Cells(Lig, 5)
            End If
        Next Lig
    End With
End Sub