Macro suppression lignes

Sub SupprimeLesLignes()

'ici on fait une boucle sur i en partant du nombre de lignes +1 en remontant jusqu'à 1 au pas de -1
For i = Worksheets("Feuil1").UsedRange.Rows.Count + 1 To 1 Step -1
    
    If Worksheets("Feuil1").Range("C" & i).Value <> "A payer" Then 'test si la cellule C de la ligne i n'est pas a payer
        Worksheets("Feuil1").Rows(i).Delete 'suppression
    End If

Next i


End Sub

Sub suppression()
Range("A1").AutoFilter Field:=3, Criteria1:="<>A payer", Operator:=xlAnd
If MsgBox("Etes vous sûr?", vbYesNo) = vbYes Then
    If Range("_FilterDataBase").SpecialCells(xlCellTypeVisible).Rows.Count > 1 Then
        Range("_FilterDataBase").Offset(1, 0).Resize(Range("_FilterDataBase"). _
            Rows.Count - 1).SpecialCells(xlCellTypeVisible).Delete Shift:=xlUp
    End If
Else
     MsgBox "Annulé"
End If
Range("A1").AutoFilter
End Sub