Private Sub Workbook_Open()
'On active le classeur
ThisWorkbook.Activate
'On force par défaut l'affichage de la feuille Application du classeur
Sheets("Application").Select
'On lance le Splash screen de l'application
Form_Splash.Show
Sheets("Application").Lst_ChoixVehic.AddItem "Révision annuel" 'Feuil1 => Nom de la feuille
End Sub