Masquer la ligne si cellule vide

Sub Masquer()
Set plg = Range("b2:b1000")
For i = 2 To 1000
If Range("b" & i) = "" Then
Range("b" & i).Select
Selection.EntireRow.Hidden = True
End If
Next
End Sub

Option Explicit
Sub Ligne_masquer_si()
    Dim i As Long
    Application.ScreenUpdating = False
    For i = Cells(Rows.Count, "b").End(xlUp).Row To 2 Step -1
        If Range("b" & i) = "" Or Range("b" & i) = 0 Then Rows(i).EntireRow.Hidden = True
    Next
    Application.ScreenUpdating = True
End Sub

Sub Masque()
If [B1] = "" Then [B1] = "Titre" 'il faut un titre
Cells(2, Columns.Count) = "=TRIM(B2)<>"""""
Rows("1:1000").AdvancedFilter xlFilterInPlace, Cells(1, Columns.Count).Resize(2)
Cells(2, Columns.Count) = "" 'RAZ
With ActiveSheet.UsedRange: End With 'pour la barre de défilement
End Sub

Sub Affiche()
On Error Resume Next: ActiveSheet.ShowAllData
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If [B1] = "" Then [B1] = "Titre" 'il faut un titre
Cells(2, Columns.Count) = "=TRIM(B2)<>"""""
Rows("1:1000").AdvancedFilter xlFilterInPlace, Cells(1, Columns.Count).Resize(2)
Cells(2, Columns.Count) = "" 'RAZ
With ActiveSheet.UsedRange: End With 'pour la barre de défilement


End Sub