Private Sub UserForm_initialize()
Dim dico As Object
Set dico = CreateObject("scripting.dictionary")
dico.comparemode = 1
Dim i As Integer
For i = 1 To 12
mois = Format(DateSerial(Year(Date), i, 1), "mmmm")
Me.Controls("Label" & i) = mois
For j = 2 To Sheets(mois).Cells(Rows.Count, 9).End(3).Row
If Not dico.exists(Sheets(mois).Cells(j, 9).Value) Then
Me.Controls("listbox" & i).AddItem Sheets(mois).Cells(j, 9).Value
dico.Item(Sheets(mois).Cells(j, 9).Value) = ""
End If
Next j
Next i
End Sub