macro pour supprimer des lignes contenant des cellules vides

Sub Supprime()
Dim cel As Range
For Each cel In Range("B1:B" & Range("B65535").End(xlUp).Row)
If cel.Value = "" Then Rows(cel.Row).Delete
Next cel
End Sub

Sub Supprime()
Dim cel As Range
For Each cel In Range("B1:B" & Range("B65535").End(xlUp).Row)
If cel.Value = " " Then Rows(cel.Row).Delete
Next cel
End Sub

Dim X As Range
Set X = Range([B2], Cells(Cells(Rows.Count, "A").End(xlUp).Row, "B")).SpecialCells(xlCellTypeBlanks)
If Not (X Is Nothing) Then X.EntireRow.Delete

Dim X As Long
For X = Cells(Rows.Count, "A").End(xlUp).Row To 2 Step -1
    If Cells(X, "B") = "" Then Rows(X).Delete
Next X

Dim X As Long
For X = Cells(Rows.Count, "A").End(xlUp).Row To 2 Step -1
    If Cells(X, "B") = " " Then Rows(X).Delete
Next X

Sub supprime()
  Dim L As Long
  Application.ScreenUpdating = False
  For L = Cells(Rows.Count, "A").End(xlUp).Row To 2 Step -1
    If Trim(Cells(L, "B")) = "" Then Rows(L).Delete
  Next
End Sub