XL 2013 bouton bascule (togglebutton)

Option Explicit
Private TEST As Boolean 'déclare la variable TEST

Private Sub UserForm_Initialize() 'à l'initialisation de l'UserForm
TEST = True 'définit la variable TEST
Me.ToggleButton1.Value = True 'définit la valeur [Vrai] du bouton Bascule
End Sub

Private Sub ToggleButton1_Click() 'au clic dand le bouton bascule
If TEST = True Then TEST = False: Exit Sub 'si TEST est [vrai] TEST devient [faux], sort de la procédure
Select Case Me.ToggleButton1.Value 'agit en fonction de la valeur du bouton bascule
    Case True 'cas [vrai]
        MsgBox "vrai" 'message à remplacer par ton code à toi
    Case False 'cas [faux]
        MsgBox "faux" 'message à remplacer par ton code à toi
End Select 'fin de l'action en fonction de la valeur du bouton bascule
End Sub