Sub test()
Dim der As Long
Dim i As Long
der = Range("A65536").End(xlUp).Row
For i = der To 1 Step -1
If Range("A" & i) = "paris 12" Or Range("A" & i) = "paris 13" Then Range("A" & i).Delete
Next i
End Sub
Sub test()
Dim der As Long
Dim i As Long
der = Range("A65536").End(xlUp).Row
For i = der To 1 Step -1
If Range("A" & i) = "paris 12" Or Range("A" & i) = "paris 13" Then Rows(i).Delete
Next i
End Sub