Une manière de faire !
Sub test()
Set maplage = ActiveSheet.UsedRange
mot = InputBox("Mot rechercher:")
If mot = "" Then Exit Sub
compt = 0
For Each macellule In maplage
If Left(macellule, Len(mot)) = mot Then
macellule.EntireRow.Delete
compt = compt + 1
End If
Next
MsgBox compt & " lignes effacées"
End Sub