Remplacer une macro par une case à cocher

Bonjour,
j'essaie de compiler deux macro, que j'ai trouvé sur le site, mais ça rate à chaque fois, pourriez vous m'aiguillez??: Masquer démasquer sur plusieurs onglets; la ligne quatre:

Private Sub MDBatiment_Click()
Rows("4").EntireRow.Hidden = IIf(MDBatiment, 1, 0)
End Sub

Sub Macro3()
Sheets(Array("SHOB", "SHON", "PDG")).Select
Sheets("PDG").Activate
Rows("12:12").Select
Selection.Insert Shift:=xlDown
Range("H12").Select
Selection.FillDown
Sheets("PDG").Select
End Sub

Les deux marchent très bien, mais comment faire une case à cocher qui s'applique aux trois pages dont celle active??