Private Sub ListBox2_Click()
Dim L As Long
If ListBox2.MultiSelect <> fmMultiSelectSingle Then
For L = 0 To ListBox2.ListCount - 1
If ListBox2.Selected(L) Then FiltreListbox ListBox2.List(L), Col
Next L
Else
FiltreListbox ListBox2.List(ListBox2.ListIndex), Col
End If