Sub test()
Dim i As Long
For i = Range("B65536").End(xlUp).Row To 2 Step -1
If Range("B" & i).Value = "Noël" Then
Range("B" & i).EntireRow.Delete
End If
Next i
End Sub
ReEdit : il est possible qu'un lutin du père noël ait changé un mot dans la macro proposée, chercher l'erreur