Deux ToggleButtons pour une même Macro

Bonjour à tous,

Je suis en train d'écrire une procédure pour mettre à jour un tableau excel contenant des Macro. Dans cette procédure faut appuyer une fois sur un toggleButton puis une deuxième fois plus loin dans la procédure.

Ce que j'aimerais c'est que les états des deux boutons soit identiques (quand l'un est enfoncés, l'autre aussi) et que les deux boutons puisse lancer l'ensemble des macros (gain de temps quand la procédure sera maitrisé)

J'ai donc codé ça :

Private Sub ToggleButton1_Click()
   Application.ScreenUpdating = False
   Dim I&
    With Me.ToggleButton1
        If .Value = True Then '
            .Caption = "Masquer": .BackColor = vbRed

            ToggleButton2.Value = True
            ToggleButton2.Caption = "Masquer": ToggleButton2.BackColor = vbRed

        Else
            .Caption = "Afficher": .BackColor = vbGreen

            ToggleButton2.Caption = "Masquer": ToggleButton2.BackColor = vbRed
            Tableau.PIO
        End If
        For I = 1 To 13: Sheets(I).Visible = .Value: Next
    End With
End Sub

Private Sub ToggleButton2_Click()
Application.ScreenUpdating = False
   Dim I&
    With Me.ToggleButton2
        If .Value = True Then '
            .Caption = "Masquer": .BackColor = vbRed

            ToggleButton1.Value = True
            ToggleButton1.Caption = "Masquer": ToggleButton2.BackColor = vbRed

        Else
            .Caption = "Afficher": .BackColor = vbGreen

            ToggleButton1.Caption = "Afficher": ToggleButton1.BackColor = vbGreen

            Tableau.PIO
        End If
        For I = 1 To 13: Sheets(I).Visible = .Value: Next
    End With
End Sub

Cela fonctionne, les deux boutons change d'état en même temps mais lors de la "sortie" du deuxième bouton je me retrouve dans la situation ou le deuxième bouton reste enfoncé et grisé même si il prend bien la couleur et le texte "affiché"

Je ne comprend pas pourquoi,

Merci d'avance pour votre aide !

Problème reglé…

comme un idiot j'avais oublié la ligne:

ToggleButton2.Value = False

Je clot le sujet