Sub Masquer()
' Cette macro a pour objectif sur clic du bouton "Masquer"
'de cacher/Afficher en bascule les lignes 5 à 13 de la feuille
' Si Q1 = 1 j'affiche et met à 2, si Q1 = 2 je cache et met à 1
Rows("5:13").Hidden = Switch(Range("Q1") = 1, False, Range("Q1") = 2, True)
End Sub