Sub MasqueDemasque()
Dim a$, b$, c As Range
a = ActiveSheet.Shapes(Application.Caller).TopLeftCell.Row + 1
b = Cells(a, 1).End(-4121)(-0).Row
Set c = Rows(a & ":" & b): c.Hidden = Not c.Hidden
End Sub
Sub mLines()
Dim Rw As Long
With ActiveSheet
Rw = .Shapes(Application.Caller).TopLeftCell.Row + 1
Select Case .Shapes(Application.Caller).TopLeftCell.Column
Case 12: .Rows(Rw + 1).EntireRow.Hidden = False
Case 13: .Rows(Rw + 1).EntireRow.Hidden = True
End Select
End With
End Sub