Dim Ws As Worksheet
'Pour toutes les feuilles du classeur
For Each Ws In Worksheets
'Si l'index de la feuille n'est pas 1 alors on cache vraiment la feuille
If Ws.Index <> 1 Then Ws.Visible = 2
'Feuille suivante
Next
'Avec la fenêtre active
With ActiveWindow
'On cache l'ascenceur horizontal puis le vertical
.DisplayHorizontalScrollBar = 0
.DisplayVerticalScrollBar = 0
'On cache les onglets
.DisplayWorkbookTabs = 0
'On cache les entêtes
.DisplayHeadings = 0
'On cache le quadrillage
.DisplayGridlines = 0
End With
'On cache la barre de formule
Application.DisplayFormulaBar = 0
'On cache le ruban, 100 à modifier si besoin, faire des essais
If Application.CommandBars.Item("Ribbon").Height > 100 Then
Application.SendKeys "^{F1}"
End If