Private Sub ComboBox1_DropButtonClick()
Dim C As Range, MonDico As Object, Sh As Object, temp()
Set Sh = Sheets("Feuille liaison BD")
Set MonDico = CreateObject("Scripting.Dictionary")
For Each C In Sh.Range("A3:A" & Rows.Count).SpecialCells(xlCellTypeFormulas)
If Not IsError(C.Value) Then MonDico.Add C.Value, C.Value
Next C
temp = MonDico.items
Call tri(temp, LBound(temp), UBound(temp))
Me.ComboBox1.List = temp
End Sub