Microsoft 365 Couleur lignes Listview à partir de la valeur d'une colonne

Private Sub FilterListView()
    Dim rngCell As Range
    Dim LstItem As ListItem
    Dim RowCount As Long, ColCount As Long
    Dim i As Long, j As Long

    Me.ListView1.ListItems.Clear

    RowCount = Tbl.DataBodyRange.Rows.Count
    ColCount = Tbl.DataBodyRange.Columns.Count
   
    With Tbl.DataBodyRange
        'Remplir la Listview
        For i = 1 To RowCount
             If Not .Cells(i, 1).EntireRow.Hidden Then
                 Set LstItem = Me.ListView1.ListItems.Add(Text:=.Cells(i, 1).Value)
                 For j = 2 To ColCount
                    LstItem.ListSubItems.Add Text:=.Cells(i, j).Value
                 Next j
                 LstItem.ListSubItems.Add Text:=CStr(i)
                 If LstItem <> "" Then
                    Me.ListView1.ListItems(i).ForeColor = RGB(255, 0, 0)
                    For j = 2 To ColCount
                        Me.ListView1.ListItems(i).ListSubItems(j).ForeColor = RGB(255, 0, 0)
                    Next
                End If
             End If
        Next i
    End With
    Tbl.AutoFilter.ShowAllData ' suppression du filtre auto
End Sub