Private Sub Alim_Combo(Col As Byte, Cbx As Byte)
Dim Cell As Range, Sptd As Object
Set Sptd = CreateObject("Scripting.Dictionary")
With Sheets("Feuil1")
For Each Cell In .Range(.Cells(2, Col), .Cells(.Cells(65536, Col).End(xlUp).Row, Col))
If Not Sptd.Exists(Cell.Value) Then Sptd.Add Cell.Value, Cell.Value
Next
End With
Controls("ComboBox" & Cbx).List = Sptd.items
[COLOR="Red"] With Controls("ComboBox" & Cbx)
For i = 0 To .ListCount - 1
For j = 0 To .ListCount - 1
If .List(i) < .List(j) Then
strTemp = .List(i)
.List(i) = .List(j)
.List(j) = strTemp
strTemp = Sptd.items
End If
Next j
Next i
End With[/COLOR]
Set Sptd = Nothing
End Sub