Bonsoir,
Tu peux trier la liste avant de l'affecter au Combo :
Sub TriUsers(Temp)
Dim i%, j%, u$
For i = LBound(Temp) To UBound(Temp) - 1
For j = i + 1 To UBound(Temp)
If Temp(j) < Temp(i) Then
u = Temp(j): Temp(j) = Temp(i): Temp(i) = u
End If
Next j
Next i
End Sub
Et tu termines ton Initialize ainsi :
Temp = dico.keys
TriUsers Temp
ComboBox_User.List = Temp
End Sub
NB- Si ton code était indenté, il serait nettement plus lisible !