Sub DoubleZero()
Dim i As Long
Application.ScreenUpdating = False
For i = Cells(Rows.Count, "d").End(xlUp).Row To 2 Step -1
If Range("d" & i) Like "*%ANNUL*" Then Rows(i).Cut Destination:=Sheets("BC (ANNUL)").Range("a" & Rows.Count).End(xlUp)(2)
Next i
On Error Resume Next
Columns(1).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
Application.ScreenUpdating = True
End Sub