Private Sub ListBoxJour_Change()
Dim mondico As Variant, i As Integer, c As Range
Set dchoisis4 = CreateObject("Scripting.Dictionary")
For i = 0 To Me.ListBoxJour.ListCount - 1
If Me.ListBoxJour.Selected(i) = True Then dchoisis4(Me.ListBoxJour.List(i, 0)) = ""
Next i
If dchoisis4.Count > 0 Then Me.RésultatListBoxJour.List = dchoisis4.keys Else Me.RésultatListBoxJour.Clear
'ajouter la classe
Me.ListBoxClasse.Clear
Set mondico = CreateObject("Scripting.Dictionary")
For Each c In Range(f.[A2], f.[A65000].End(xlUp))
If dchoisis.exists(c.Value) And dchoisis2.exists(c.Offset(, 1).Value) And dchoisis3.exists(c.Offset(, 2).Value) And dchoisis4.exists(c.Offset(, 3).Value) Then mondico(c.Offset(, 9).Value) = ""
Next c
If mondico.Count > 0 Then Me.ListBoxClasse.List = mondico.keys Else Me.ListBoxClasse.Clear
End Sub