Option Explicit
'************************
Sub Interface_anonyme()
'************************
Dim VL_feuille As Worksheet
If ActiveWindow.DisplayGridlines = True Then
ActiveWindow.DisplayGridlines = False
ActiveWindow.DisplayHeadings = False
Application.DisplayFullScreen = True
Application.DisplayScrollBars = False
Application.DisplayFormulaBar = False
Else
For Each VL_feuille In Sheets
On Error Resume Next
VL_feuille.Select
ActiveWindow.DisplayGridlines = True
ActiveWindow.DisplayHeadings = True
Application.DisplayFormulaBar = True
Application.DisplayFullScreen = True
Application.DisplayScrollBars = True
Application.DisplayFormulaBar = True
On Error GoTo 0
Next
Application.WindowState = xlNormal
Application.WindowState = xlMaximized
Sheets("EFNC").Select
End If
End Sub