Private Sub UserForm_Initialize()
Call RempListCombo(ComboBoxTraitement, "Feuil2", "a", True)
ComboBoxMetier.AddItem ("")
ComboBoxMetier.AddItem ("dentiste généraliste, médecin-dentiste, médecin spécialiste stomatologie")
ComboBoxMetier.AddItem ("dentiste spécialiste orthodontie")
ComboBoxMetier.AddItem ("dentiste spécialiste parodontologie")
ComboBoxMetier.ListIndex = 0
End Sub
'******************************************
Private Sub RempListCombo(Controlebox As MSForms.Control, Feuil As String, Cola As String, Trier As Boolean)
Dim Col As New Collection
Dim c As Range, sh As Worksheet
Dim Listdata() As String
Dim i As Long
Dim M As Long
Dim N As Long
Dim temp As String
With Worksheets(Feuil)
On Error Resume Next
For Each c In .Range(Cola & "2:" & Cola & .Range(Cola & .Rows.Count).End(xlUp).Row)
Col.Add c, CStr(c)
Next c
ReDim Listdata(Col.Count - 1)
For i = 0 To Col.Count - 1
Listdata(i) = Col(i + 1)
Next i
If Trier = True Then
For N = 0 To UBound(Listdata)
For M = 0 To UBound(Listdata)
If Listdata(M) > Listdata(N) Then
temp = Listdata(N)
Listdata(N) = Listdata(M)
Listdata(M) = temp
End If
Next M
Next N
End If
Controlebox.Clear
Controlebox.List = Listdata
End With
On Error GoTo 0
End Sub