petit souci avec se morceau de code

Bonjour,

j'ai un souci avec se morceau de code, pourquoi j'ai une erreur d'execution 'code 1004' quand la ligne en rouge s'execute ?
cette macro devrait m'éffacer les lignes dont la cellule en B et vide

Sub Macro3()
Dim lig
Range("K" & Range("K65000").End(xlUp).Row).Select
Do While lig <> 1
lig = ActiveCell.Row
If Range("B" & lig) = "" Then
ActiveCell.EntireRow.Delete
End If
Range("B" & lig - 1).Select
Loop
End Sub

merci pour votre aide une fois de plus

Chris