Je précise que ce code n'est pas du tout de moi - Lorsque je "surfais" sur le NET depuis la M.C.L. (Maison de la Culture & des Loisirs) j'effectuais des copier coller rapidement vu le temsp imparti -- Je pense que le réalisateur se reconnaîtra - bonnes fêtes de fin d'année --
--A placer dans UserForm_Initialize()
Me.ComboBox1.List = ListSort(Me.ComboBox1.List)
--Code distinct
Function ListSort(liSte)
Dim First As Integer, Last As Integer
Dim i As Integer, j As Integer
Dim Temp
First = LBound(liSte)
Last = UBound(liSte)
For i = First To Last - 1
For j = i + 1 To Last
If liSte(i, 0) > liSte(j, 0) Then
Temp = liSte(j, 0)
liSte(j, 0) = liSte(i, 0)
liSte(i, 0) = Temp
End If
Next j
Next i
ListSort = liSte
End Function
A ++ Eric