Bonjour
Avec une procédure évènementielle
A coller dans le code de la feuille
Ne surveille que les changements dans la colonne A
Option Explicit
Private Sub Worksheet_Calculate()
Dim Plage As Range
Dim Cel As Range
On Error Resume Next
Set Plage = Columns(1).SpecialCells(xlCellTypeFormulas, 23)
On Error GoTo 0
If Not Plage Is Nothing Then
For Each Cel In Plage
If Cel = 0 Then Rows(Cel.Row).Hidden = True Else Rows(Cel.Row).Hidden = False
Next Cel
End If
End Sub
Bonne soirée