Private Sub UserForm_Initialize()
Set MonDico = CreateObject("Scripting.Dictionary")
For Each c In [dates]
If Not MonDico.Exists(c.Value) Then MonDico.Add c.Value, c.Value
Next c
Me.ComboBox1.List = MonDico.items
End Sub
Private Sub ComboBox1_Change()
Set MonDico = CreateObject("Scripting.Dictionary")
For Each c In [dates]
If Not MonDico.Exists(c.Offset(0, 1).Value) And CDate(c) = CDate(Me.ComboBox1) And c.Offset(0, 1) <> "." Then
MonDico.Add c.Offset(0, 1).Value, c.Offset(0, 1).Value
End If
Next c
Me.ListBox1.List = MonDico.items
End Sub
JB