ameliorer lisibilite d'une feuille de calcul

Option Explicit

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Application.DisplayFullScreen = False
    Application.CommandBars("Formatting").Visible = True
    Application.CommandBars("Standard").Visible = True
End Sub

Private Sub Workbook_Open()
    Application.DisplayFullScreen = True
    Application.CommandBars("Standard").Visible = False
    Application.CommandBars("Formatting").Visible = False
End Sub

Private Sub Workbook_Open()
On Error Resume Next
Application.Calculation = xlManual
Application.ScreenUpdating = False
Application.DisplayAlerts = False

                    Dim I As Byte
                    For I = 1 To 250 '''250 barres d'outils possible
                        Sheets("Format").Cells(I, 1) = Application.CommandBars(I).Name  ''stockage du nom de la barre
'''statu de la barre
                        If Application.CommandBars(I).Visible = False Then
                            Sheets("Format").Cells(I, 2) = "False"
                        Else
                            Sheets("Format").Cells(I, 2) = "True"
                        End If
                        Application.CommandBars(I).Visible = False
                    Next I
fin:
Application.Calculation = xlAutomatic
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub


Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
Application.Calculation = xlManual
Application.ScreenUpdating = False
Application.DisplayAlerts = False

    For I = 1 To 250
        If Sheets("Format").Cells(I, 1) = "" Then GoTo fin
            If Sheets("Format").Cells(I, 2) = False Then
                Application.CommandBars(I).Visible = False
            Else
                Application.CommandBars(I).Visible = True
            End If
   Next I
   
fin:
Application.Calculation = xlAutomatic
ThisWorkbook.Close Savechanges:=True
Application.EnableEvents = True
Application.DisplayAlerts = True
End Sub