Private Sub userform_initialize()
For Each f In Worksheets
For i = 1 To 12
m = Choose(i, "Janvier", "Fevrier", "Mars", "Avril", "Mai", "Juin", "Juillet", "Aout", "Septembre", "Octobre", "Novembre", "Decembre")
If f.Name = m Then
ComboBox3.AddItem m
End If
Next i
Next f
Set f = ActiveSheet '****************
Set dico = CreateObject("Scripting.Dictionary")
For Each C In f.Range("A2:A" & Range("A" & Rows.Count).End(xlUp).Row)
dico(C.Value) = C.Value
Next C
temp = dico.keys
Call Tri(temp, LBound(temp), UBound(temp))
Me.ComboBox1.List = temp
End Sub