Sub AlimComboBox()
col = Application.Match(titre, f.[A1:N1], 0)
If IsError(col) Then Exit Sub
Set mondico = CreateObject("Scripting.Dictionary")
mondico.CompareMode = vbTextCompare
a = Application.Transpose(f.Cells(2, col).Resize(f.Cells(65000, col).End(xlUp).Row).Value)
For I = LBound(a) To UBound(a)
If a(I) <> "" Then
b = Split(a(I), ",")
For j = LBound(b) To UBound(b)
mondico(Trim(b(j))) = ""
Next j
End If
Next I
choix1 = mondico.keys
Call Tri(choix1, LBound(choix1), UBound(choix1))
Me.ComboBox1.ListIndex = -1
Me.ComboBox1.List = choix1
Me.ComboBox1.SetFocus
Label4.Caption = ComboBox1.ListCount
End Sub