Listbox avec combobox

bonjour

j'ai un userform avec une combobox6 et une feuille mouvement

les valeurs qui sont dans la combobox6 exemple 22-11 sont les valeurs de la colonne A dans la feuille mouvement et j'aimerais que les valeurs des colonnes b et c s'affiche dans une listbox.

il peu avoir plusieurs fois les même valeur dans la colonne A

merci

Private Sub ComboBox6_Change()

With Sheets("mouvement")
    Dim Cell As Range
    Dim Unique As New Collection
    Dim Valeur As Range
    Dim j As Integer
    ListBox1.Clear

'Récupère la dernière ligne non vide dans la colonne B
    j = Sheets("mouvement").Range("A65536").End(xlUp).Row

    On Error Resume Next
'boucle sur les cellules de la colonne B

    For Each Cell In Sheets("mouvement").Range("B2:C" & j)
'Stock les données dans une collection n'accepte que des valeurs uniques et permet donc de filtrer facilement les doublons

    ' Si la valeur de la colonne A est identique au Type Parc
    If Cell.Offset(0, -1) = Me.ComboBox6 Then
      Unique.Add Cell, CStr(Cell)
    End If
    Next Cell

    'Boucle sur le contenu de la collection pour alimenter la ListBox
    For Each Valeur In Unique
        Me.ListBox1.AddItem Valeur
    Next Valeur

End With

End Sub

Bonjour

il peu avoir plusieurs fois les même valeur dans la colonne A

sans données confidentielles

Cordialement