listbox multiselection filtrer

Bonjour et merci du temps consacré
Voilà ce que je souhaiterais faire:
J'ai deux listbox dans mon USF
Listbox1 ET ListBOX2
Donc la listbox1 est chargé avec les valeurs d'une colonne;ensuite je fltre les valeurs de la listbox1 comme ceci pour charger ma Listbox2:

Set rgnu = Feuil16.Range("A7", Feuil16.Range("A65536").End(xlUp))

With ListBox2
.Clear
For Each cel In rgnu
If cel = ListBox1 Then
.AddItem cel.Offset(0, 1)

End If
Next cel
If .ListCount > 0 Then .ListIndex = 0
End With

Cliquez pour agrandir...

Jusque là pas de problème mais ce que souhaiterais faire c'est de permettre la multiselection dans la listbox1 et là je ne vois pas comment faire.
Merci d'avance pour vos réponses