Sub test()
Dim a$, b$
Dim X&
a = Sheets("Feuil1").Cells(Rows.Count, 1).End(xlUp).Row + 1
b = Sheets("Feuil1").Cells(Rows.Count, 2).End(xlUp).Row
If a = "" And b <> "" Then
MsgBox "la ligne va être supprimée"
For X = Cells(b, 2).CurrentRegion.Rows.Count To 1 Step -1
If Cells(X, 2).Value <> "" And Cells(X, 1).Value = "" Then Cells(X, 1).EntireRow.Delete
Next
End Sub