Protect "", UserInterfaceOnly:=True 'protection sans mot de passe
If Target.Address = "$N$8" Then Rows("9:14").Hidden = Not Rows("9:14").Hidden: Target.Offset(, 1).Select
Protect "", UserInterfaceOnly:=True 'protection sans mot de passe
If Target.Address = "$N$8" Then Rows("9:14").Hidden = Not Rows("9:14").Hidden: Target.Offset(, 1).Select