Sub VisibleMasque()
'
' VisibleMasque Macro
'
If Range(Cells(5, 1), Cells(5, 1)).EntireRow.Hidden = False Then
'Sub fermer()
'Range("3:3,7:7,11:11,15:15,19:19,23:23,27:27").Select
Rows("5:11").Select
Selection.EntireRow.Hidden = True
'Range("B12").Select
Else
' Sub ouvrir()
'Rows("3:27").Select
Rows("4:12").Select
Selection.EntireRow.Hidden = False
'Range("B5").Select
End If
End Sub