Private Sub Workbook_Activate()
Sheets("Accueil").Activate
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)"
Application.DisplayFormulaBar = False
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub