Option Explicit
Sub plein_ecran()
Application.ScreenUpdating = False
With ActiveWindow
.DisplayGridlines = False
.DisplayHeadings = False
.DisplayHorizontalScrollBar = False
.DisplayVerticalScrollBar = False
.DisplayWorkbookTabs = False
Application.DisplayFullScreen = True
End With
Application.ScreenUpdating = True
End Sub
Sub plein_ecran_supp()
Application.ScreenUpdating = False
With ActiveWindow
.DisplayGridlines = False
.DisplayHeadings = True
.DisplayHorizontalScrollBar = True
.DisplayVerticalScrollBar = True
.DisplayWorkbookTabs = True
Application.DisplayFullScreen = False
End With
Application.ScreenUpdating = True
End Sub