Private Sub RempListCombo(Controlebox As MSForms.Control, Feuil As String, Cola As String, Valeur1 As String)
Dim col As New Collection
With ActiveWorkbook.Worksheets("Parents") 'Worksheets(parents)
On Error Resume Next
For Each c In .Range(Cola & "2:" & Cola & .Range(Cola & .Rows.count).End(xlUp).Row)
If InStr(c, Valeur1) > 0 Then
pos = InStr(c, "/")
If pos > 0 Then
temp = Mid(c, Len(c) - 5, 4)
col.Add temp, CStr(temp)
End If
End If
Next c
ReDim Listdata(col.count - 1)
For i = 0 To col.count - 1
Listdata(i) = col(i + 1)
Next i
'Dim M As Long
'Dim N As Long
'Dim Temp As String
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
Controlebox.List = Listdata
End With
On Error GoTo 0
End Sub