Masquage des colonnes

Sub masqer()
Rows("108:135").Select
    Selection.EntireRow.Hidden = true
End Sub

Sub Afficher()
Rows("115:125").Select
Selection.EntireRow.Hidden = False
End Sub

Sub md() 
[COLOR=Green]'permet d'utiliser un seule macro
'pour le masquage/démasquage[/COLOR]
Dim a As Range
Set a = Rows("108:135")
a.EntireRow.Hidden = Not a.EntireRow.Hidden
End Sub

Sub masquer(m As Boolean)
Dim a As Range
Set a = Rows("108:135")
a.EntireRow.Hidden = m
End Sub

Sub masquer() [COLOR=Green]'pour masquer[/COLOR]
masquer True
End Sub

Sub demasquer() [COLOR=Green]'pour démasquer[/COLOR]
masquer False
End Sub