Sub Supprime()
Dim DerLig As Integer, i As Integer
DerLig = Sheets("Feuil1").Range("B65500").End(xlUp).Row
For i = DerLig To 1 Step -1
If Cells(i, 2) = "202" Or Cells(i, 2) = "a9" Then ' rajouter les critères de suppression
Cells(i, 1).EntireRow.Delete
End If
Next i
End Sub