Help ListView Filter

Hello

In a Listview I display the last 6 values ​​of a series of 7 successive values ​​from column Q
I try to filter the ListView based on the item clicked in the listbox, but I can not
I click on the ListBox, ListView displays only the rows where the first value is equal to ListBox item
It would be kind if someone could help me solve this problem, I tried many ways, but without success

With Me.ListView1
    For Ligne = 2 To Sh.Cells(Rows.Count, "A").End(xlUp).Row
        dercol = Sh.Cells(Ligne, Cells.Columns.Count).End(xlToLeft).Column
        For i = 18 To dercol Step 7
        .ListItems.Add , , Sh.Cells(Ligne, i)
            For j = 1 To 5
            .ListItems(.ListItems.Count).ListSubItems.Add , , Sh.Cells(Ligne, i + 1)
            .ListItems(.ListItems.Count).ListSubItems.Add , , Sh.Cells(Ligne, i + 2)
            .ListItems(.ListItems.Count).ListSubItems.Add , , Sh.Cells(Ligne, i + 3)
            .ListItems(.ListItems.Count).ListSubItems.Add , , Sh.Cells(Ligne, i + 4)
            .ListItems(.ListItems.Count).ListSubItems.Add , , Sh.Cells(Ligne, i + 5)
            .ListItems(.ListItems.Count).ListSubItems.Add , , Sh.Cells(Ligne, i + 6)
            Next j
        Next i
    Next
End With

In advance, thanks

Hi Kimaos,
try it

Private Sub ListBox1_Change()
Dim r As Range, adr$, cnt&, s$, i&
s = Me.ListBox1.Value
Me.ListView1.ListItems.Clear
With Sheets("BD").Range("A1").CurrentRegion
    Set r = .Find(What:=s, lookat:=xlWhole)
    If Not r Is Nothing Then
        adr = r.Address
        Do
            cnt = cnt + 1
            With Me.ListView1
                .ListItems.Add Text:=r.Value
                For i = 2 To 6
                    .ListItems(cnt).ListSubItems.Add Text:=r(1, i)
                Next i
            End With
            Set r = .FindNext(r)
        Loop While r.Address <> adr
    End If
End With
End Sub

Hello nilem, the forum,

I tried it and it works
I thank you very much my dear
Have a nice day nilem !

Cordially, Kimaos.