Bonsoir
Pour le message à l'ouverture mettre cette macro dans " thisworbook"
Private Sub Workbook_Open()
MsgBox "Bonjour " & Chr(10) & Chr(10) & "nous sommes le " & Date
End Sub
Pour la fermeture il suffit de mettre un bouton sur ta feuille et de mettre une macro de ce type
Sub Macro2()
ActiveWorkbook.Close
End Sub