Private Sub Workbook_BeforeClose(Cancel As Boolean) 'à la fermeture du classeur
Sheets('Feuil').Select 'sélectionne l'onglet indiqué
End Sub
Private Sub Workbook_Open() 'à l'ouverture du classeur
Sheets('Feuil').Select 'sélectionne l'onglet indiqué
End Sub