Masquer des lignes automatiquement

Option Explicit
Sub Masquer()
Application.ScreenUpdating = False
[a:a].SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True
Application.ScreenUpdating = True
End Sub
Sub Afficher()
Application.ScreenUpdating = False
[a:a].SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = False
Application.ScreenUpdating = True
End Sub

Sub Macro1()
Dim O As Object 'déclare la variable O (Onglet)
Dim PL As Range 'déclare la variable PL (PLage)
Dim CEL As Range 'déclare la variable CEL (CELlule)

Set O = Sheets("Feuil1") 'définit l'onglet O (à adapter à ton cas)
Set PL = Application.Intersect(O.UsedRange, O.Columns(1)) 'définit la palge PL (intersection entre la colonne 1 et la plage des cellules éditées)
For Each CEL In PL 'boucle sur totes les cellules CEL de la palge PL
    If CEL.Value = "" Then CEL.EntireRow.Hidden = True 'si la cellule est vide, masque la ligne entière de la cellule
Next CEL 'prochaine cellule de la plage
End Sub