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