recherche multi critere

Sub Supprimer()
Application.ScreenUpdating = False
With Feuil1 'CodeName de la feuille
  .[A1].Name = "cible1"
  .[B1].Name = "cible2"
  .[C1].Name = "cible3"
End With
With Feuil2 'CodeName de la feuille
  .[E:E].Insert 'colonne auxiliaire
  .[E1:E500].FormulaR1C1 = "=LN(COUNTIF(RC1:RC4,cible1)*COUNTIF(RC1:RC4,cible2)*COUNTIF(RC1:RC4,cible3))"
  On Error Resume Next
  .[E1:E500].SpecialCells(xlCellTypeFormulas, 1).EntireRow.Delete
  .[E:E].Delete
End With
Application.ScreenUpdating = True
If Err Then MsgBox "Aucune donnée trouvée..."
End Sub

Sub Supprimer()
With Feuil1 'CodeName de la feuille
  .[A1].Name = "cible1"
  .[B1].Name = "cible2"
  .[C1].Name = "cible3"
End With
With Feuil2.Cells(1, Columns.Count).Resize(500) 'CodeName de la feuille
  .FormulaR1C1 = "=LN(COUNTIF(RC1:RC4,cible1)*COUNTIF(RC1:RC4,cible2)*COUNTIF(RC1:RC4,cible3))"
  On Error Resume Next
  .SpecialCells(xlCellTypeFormulas, 1).EntireRow.Delete
  .ClearContents
End With
If Err Then MsgBox "Aucune donnée trouvée..."
End Sub