Private Sub UserForm_Initialize()
Set Mondico = CreateObject("Scripting.Dictionary")
Set f = Sheets("Liste intervention")
For Each c In Range(f.[M10000], f.[M65000].End(xlUp))
Mondico.Item(c.Value) = c.Value
Mondico.Item(c.Value) = Format(Mondico.Item(c.Value), "mmmm-yyyy")
Next c
Me.ChoixMois.List = Mondico.items
End Sub