Sub supprimer()
Dim n As Long
Application.ScreenUpdating = False
With Worksheets("Feuil1")
n = .Range("A" & Rows.Count).End(xlUp).Row
For i = n To 2 Step -1
If Not (.Range("A" & i).Value Like "*222*" Or _
.Range("A" & i).Value Like "*223*" Or _
.Range("A" & i).Value Like "*224*") Then Rows(i).Delete
Next i
End With
Application.ScreenUpdating = True
End Sub