Sub Affiche()
ActiveCell.Activate 'ôte le focus des CheckBox
ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon""," & IIf([Ruban], "TRUE", "FALSE") & ")" 'ruban
Application.DisplayFormulaBar = [Formule] 'barre de formule
Application.DisplayStatusBar = [Etat] 'barre d'état
With ActiveWindow
.DisplayGridlines = [Quadrillage] 'quadrillage
.DisplayHeadings = [Entetes] 'en-têtes des lignes & colonnes
.DisplayWorkbookTabs = [Onglets] 'onglets
End With
End Sub