Problème Macro .EntireRow.Hidden

Private Sub Worksheet_Change(ByVal Target As Range)


If Target.Count > 1 Then Exit Sub 'un peu de texte d'explication ici
If Target.Address = "$C$13" Then Range("15:15,17:17,19:20").EntireRow.Hidden = Target > 0
If Target.Address = "$C$27" Then Rows("29:29").Hidden = Target > 0
If Target.Address = "$C$42" Then Rows("43:43").Hidden = Target > 0
If Target.Address = "$C$79" Then Range("80:80,83:83,89:89").EntireRow.Hidden = Target > 0

Call Feuil13.Masquer2 'un peu de texte d'explication ici

End Sub

Cliquez pour agrandir...