Option Explicit
Option Base 1 'la numérotation des tableaux commence à 1
Option Compare Text 'la casse est ignorée 'facultatif
Sub SupprimerLignes()
Dim a, ub%, plage As Range, t, ncol%, rest(), i&, j%, n&
a = Array("paris", "vincennes")
ub = UBound(a)
Set plage = ActiveSheet.UsedRange
If plage.Count = 1 Then Exit Sub 'sécurité
t = plage 'matrice, plus rapide
ncol = UBound(t, 2)
ReDim rest(UBound(t), ncol)
For i = 1 To UBound(t)
For j = 1 To ub
If InStr(t(i, 1), a(j)) Then GoTo 1
Next
n = n + 1
For j = 1 To ncol
rest(n, j) = t(i, j)
Next
1 Next
plage = rest
End Sub