Private Sub LBxMotif_Change()
LBxPart.Clear
Set Dico = CreateObject("Scripting.Dictionary")
For k = 0 To LBxMotif.ListCount - 1
For Each C In Range(f.[B2], f.[B1048576].End(xlUp))
If LBxMotif.Selected(k) And C(1, 0) = LBxMotif.List(k, 0) Then: Dico(C.Value) = ""
Next
Next
LBxPrecis.List = Dico.Keys
Label13.Visible = LBxMotif.Selected(0) = 1
End Sub