Sub jeffnko()
Application.ScreenUpdating = False
Dim critere As String
For i = 1 To 1800
For j = 1 To 4 ' à changer par le numero de la dernière ligne des critères
critere = "*" & Sheets("Criteres").Cells(j, 1) & "*"
Range("A" & i).Select
If ActiveCell.Text Like critere Then
'// MsgBox " CA MARCHE !"
Rows(i).EntireRow.Delete
End If
Next
Next
Application.ScreenUpdating = True
End Sub