Re,
A tester:
Sub supprime()
Dim i As Long, dl As Long
dl = Range("A" & Rows.Count).End(xlUp).Row
C = Array("OUZBEKISTAN")
For j = LBound(C, 1) To UBound(C, 1)
For i = dl To 1 Step -1
If Sheets("Feuil1").Range("A" & i) Like C(j) Then Rows(i).Delete
Next i
Next j
End Sub
Si tu veux rajouter une condition, tu rajoutes une virgule et ta condition après "OUZBEKISTAN"
exemple: C = Array("OUZBEKISTAN","France")
Cordialement,