Sub Suppr_Lignes_II()
Dim a As Worksheet, b As Worksheet
Set a = Sheets("Feuil1"): Set b = Sheets("Feuil2")
a.Range(a.Cells(1, "C"), a.Cells(Rows.Count, "C").End(xlUp)).AdvancedFilter _
Action:=1, CriteriaRange:=b.Range("A1:D2"), Unique:=False
Set pf = [_FilterDataBase]
Application.DisplayAlerts = False
If WorksheetFunction.Subtotal(3, pf.Offset(1).Resize(pf.Rows.Count - 1, 1)) > 0 Then
pf.Offset(1).Resize(pf.Rows.Count - 1).EntireRow.Delete
End If
a.ShowAllData
End Sub