Sub Remplir_Combobox()
Dim SourceSheet
Dim L As Long, MonDico As Object
Dim B As Range
Dim B1
Set MonDico = CreateObject("Scripting.Dictionary")
B1 = "TOUS"
If Not MonDico.Exists(B1) Then MonDico.Add B1, B1
For Each B In Range("B3:B" & Cells(65535, 2).End(xlUp).Row)
If Not MonDico.Exists(B.Value) Then MonDico.Add B.Value, B.Value
Next B
ComboBox1.List = MonDico.items
'ComboBox1.AddItem "TOUS"
' ComboBox1.Text = "TOUS"
'tri
Dim x, i, j, temp
With ComboBox1
' trie alphabetiques de noms
For i = 1 To .ListCount - 1
For j = 1 To .ListCount - 1
If UCase(.List(i)) < UCase(.List(j)) Then
temp = .List(j)
.List(j) = .List(i)
.List(i) = temp
End If
Next j
Next i
End With
Set MonDico = Nothing
ComboBox1.Text = "TOUS"
End Sub