Private Sub ToggleButton1_Click()
If ToggleButton1.Caption = "Remettre le menu" Then
ToggleButton1.Caption = "Oter le menu"
Application.DisplayFullScreen = False
' ici opérations à exécuter
ElseIf ToggleButton1.Caption = "Oter le menu" Then
ToggleButton1.Caption = "Remettre le menu"
' ici opérations à exécuter
Application.DisplayFullScreen = True
End If
End Sub