Macro et cacher des lignes

Bonjour,

J'ai trouvé sur le net ces macros (liées a des togglebuttons). Je précise l'auteur de ces macros.

Macros enregistrées par Thierry Pourtier

Sub Action(NomBouton As String, Plage As String)
Dim bout As ToggleButton
With ActiveSheet.OLEObjects(NomBouton).Object
If .Value Then .Caption = "+" Else .Caption = "-"
ActiveSheet.Range(Plage).EntireRow.Hidden = .Value
End With
End Sub

Private Sub ToggleButton1_Click()
Action "ToggleButton1", "A3:A9"
End Sub

Private Sub ToggleButton2_Click()
Action "ToggleButton2", "A12:A18"
End Sub

Private Sub ToggleButton3_Click()
Action "ToggleButton3", "A21:A27"
End Sub

Ma question est :

Si les bouton son sur la feuille 2 et que les lignes à cacher sont sur la feuille 1, comment je fais??? Car ici les boutons et les lignes a cacher sont sur la meme feuille.

Pouvez vous m'aider?

Merci

tine