Vider Listbox cascade si Listbox précédent est vide - aide

        If dchoisis.exists(c.Value) And dchoisis2.exists(c.Offset(, 1).Value) And dchoisis3.exists(c.Offset(, 2).Value) Then mondico(c.Offset(, 9).Value) = "" ' And dchoisis4.exists(c.Offset(, 3).Value)

        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) = ""

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