Sub Message()
' Macro Message box.
Dim Msg As String, Style As String, Title As String, Answer As String
Msg = 'Ton message' ' Définit le message.
Style = vbOKCancel + vbQuestion ' Définit les boutons.
Title = 'Start up' ' Définit les titres.
Answer = MsgBox(Msg, Style, Title)
If Answer = vbOK Then Macro 1 ' bouton Oui.
If Answer = vbCancel Then Macro 2 ' bouton No
End Sub