Sub Suppr1()
Dim a, e, c As Range
a = Array("fonctionnement incomplet-vitre mobile porte AVG", _
"fonctionnement incomplet-vitre mobile porte AVD")
For Each e In a
Do
Set c = Cells.Find(e, , xlValues, xlPart)
If c Is Nothing Then Exit Do Else c.EntireRow.Delete
Loop
Next
End Sub