Help ListView Filter

[Kimaos]

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