Sub MasqueDemasque()
Rows(7).EntireRow.Hidden = Not Rows(7).EntireRow.Hidden
End Sub
Sub affObjFeuil()
' restitue la hauteur des CommandButton si ligne non masquée
Dim Obj As OLEObject
' ActiveX
For Each Obj In ActiveSheet.OLEObjects
Select Case TypeName(Obj.Object)
Case "CommandButton"
If Not Obj.TopLeftCell.EntireRow.Hidden Then Obj.Height = Application.Min(20, Obj.TopLeftCell.Height)
End Select
Next Obj
End Sub