Bonjour,
pour tester, copier cette macro événementielle sur la page code concernée,
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
Select Case Target.Value
Case 1: Range("A2").EntireRow.Hidden = True
Case 0: Range("A2").EntireRow.Hidden = False
End Select
End If
End Sub