Afficher une plage de cellules variables dans une List Box

Bonjour,
Débutant en VBA, j'ai pour projet de stage de créer un formulaire "Fiche Client" avec infos du client/Infos sur les commandes du client.
Dans la deuxième partie de mon UserForm (Celle sur les commandes), j'ai voulu mettre un ListBox pour faciliter la lecture des commandes.
J'ai deux feuilles de tableur une pour chacune des parties de mon Userform. La seule colonne en commun est l'ID du client (afin de pouvoir afficher toutes les commandes pour un seul client).

Seulement, j'aimerai qu'à la sélection d'un client (dans une ComboBox), le formulaire compare les deux colonnes "ID client" des deux feuilles, et à chaque fois qu'il trouve une correspondance, il affiche la ligne dans la listBox, ainsi nous y verrons uniquement les commandes du client sélectionné :

Une macro me groupe les ID clients dans la feuille 2, j'ai bidouillé le code suivant :

With Ws2 'la deuxième feuille du tableur avec les commandes
For k = 1 To .Cells(Rows.Count, 1).End(xlUp).Row 'Pour toutes les lignes de Ws2
DerL = Ws.Cells(Rows.Count, 1).End(xlUp)(2).Row 'Dernière ligne de la feuille 1
'On essaye de trouver les mêmes valeurs dans les deux colonnes ID Client
If Not IsError(Application.Match(.Cells(k, 1), Ws.Columns(14), 0)) Then
For l = 1 To DerL 'Pour toutes les lignes jusqu'à la dernière
If Cells(l, 1) = .Cells(k, 14) Then 'Si il y a correspondance...
'On affiche la ligne dans la listBox
With Ws2.Columns("B:G").Rows(k)
ListBox1.RowSource = Range(.Cells, .End(xlDown)(1, 1)).Address(External:=True)
End With

End If
Next
End If
Next
End With