Suppression ligne depuis Listview

Private Sub CommandButton1_Click()
    Dim wsBD As Worksheet
    Dim derLig As Long
    Dim lig As Long
    Dim Plage As Range
    Dim CritRente As String
    Dim CritDateDeb As String
    Dim CritDateFin As String
    Dim LigList As Long
    
    Set wsBD = Worksheets("transac")
    
    ' Dernière ligne dans la feuille BD
    derLig = wsBD.Range("A" & Cells.Rows.Count).End(xlUp).Row
    If derLig < 2 Then Exit Sub
    
    ' Définition de la plage en colonne A
    Set Plage = wsBD.Range("A2:A" & derLig)
    
    ' Définition des critères
        ' N° Rente
    CritRente = IIf(TextBox1.Value = "", "*", TextBox1.Value)
        ' Date Début

    
    
    LigList = 1
    
    ' Vider la listview
    ListView1.ListItems.Clear
   
    ' Boucle sur toutes les lignes
    For lig = 2 To derLig
        ' Rechercher par rapport aux critères
        If CStr(wsBD.Range("A" & lig).Value) Like CritRente Then
            
            ' Remplir la première colonne
            ListView1.ListItems.Add , , wsBD.Range("A" & lig).Value
            'Remplissage colonnes 2 à 5
            ListView1.ListItems(LigList).ListSubItems.Add , , wsBD.Range("B" & lig).Value
            ListView1.ListItems(LigList).ListSubItems.Add , , wsBD.Range("C" & lig).Value
            ListView1.ListItems(LigList).ListSubItems.Add , , wsBD.Range("D" & lig).Value
            ListView1.ListItems(LigList).ListSubItems.Add , , wsBD.Range("E" & lig).Value
            ListView1.ListItems(LigList).ListSubItems.Add , , wsBD.Range("F" & lig).Value

            
            
            
                
            LigList = LigList + 1
       End If
    Next lig

    
    End Sub