bonjours à tous
à force de chercher , de mettre les mains dans le cambouis et de faire fonctionner la matière grise ( que j'ai tendance à oublier, on a tellement l'habitude du clé en main ) chose pas facile quand on y connait absolument rien en vba, en compilant, testant plusieurs possibilité glané ici et là, et voilà ce que ça donne . dite moi ce que vous en pensez.
Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice 20160913
Dim xRg As Range
Application.ScreenUpdating = False
For Each xRg In Range("A4:A45")
If xRg.Value = 0 Then
xRg.EntireRow.Hidden = True
Else
xRg.EntireRow.Hidden = False
End If
Next xRg
Application.ScreenUpdating = True
End Sub