EXCEL - VB togglebuttons

Bonjour,

Pour faire suite à un autre post:

j'ai des Togglebuttion sur ma feuille, qui cache certaines ligne s'il sont activés.

voici le code:

Sub Action(NomBouton As String, Plage As String)
Dim bout As ToggleButton
Application.ScreenUpdating = False
ActiveSheet.Unprotect

With ActiveSheet.OLEObjects(NomBouton).Object
'If .Value Then .Caption = "Hidden" Else .Caption = "Displayed"
ActiveSheet.Range(Plage).EntireRow.Hidden = .Value
ActiveSheet.Protect
End With
End Sub

Private Sub ToggleButton1_Click()
Action "ToggleButton1", "A7:A28"
End Sub

Private Sub ToggleButton2_Click()
Action "ToggleButton2", "A29:A50"
End Sub
Private Sub ToggleButton3_Click()
Action "ToggleButton3", "A51:A72"
End Sub


Ma question est:
Comment faire pour eviter que plusieurs bouton soit activés en même temps? un seul bouton doit être acitvé à la fois. Le fait de cliquer sur l'un d'entre eux désactive les autres.

merci pour votre aide