Sub Plein_Ecran()
ActiveSheet.Shapes("Menu").Select
Selection.Characters.Text = IIf(Selection.Characters.Text = "Plein écran", "Afficher le menu", "Plein écran"): [A1].Select
Application.DisplayFullScreen = Not Application.DisplayFullScreen
[COLOR="#B22222"]ActiveWindow.DisplayGridlines = Not ActiveWindow.DisplayGridlines[/COLOR]
ActiveWindow.DisplayWorkbookTabs = Not ActiveWindow.DisplayWorkbookTabs
ActiveWindow.DisplayVerticalScrollBar = Not ActiveWindow.DisplayVerticalScrollBar
ActiveWindow.DisplayHorizontalScrollBar = Not ActiveWindow.DisplayHorizontalScrollBar
ActiveWindow.DisplayHeadings = Not ActiveWindow.DisplayHeadings
ActiveWindow.WindowState = xlMaximized
End Sub