Sub mess_01a()
'texte directement introduit dans le code
MsgBox "Ici votre message"
End Sub

Sub mess_01b()
'texte provenant d'une cellule
MsgBox Sheets("Feuil1").Range("A1")
End Sub

Sub mess_01c()
'résultat d'une variable
Dim Var As String
Var = "Texte à afficher"
MsgBox Var
End Sub

Sub mess_02a()
'texte directement introduit dans le code
MsgBox "Ici votre 1ère ligne" & Chr(10) & _
    "2ème ligne..." & Chr(10) & _
    "3ème ligne..." & Chr(10) & _
    "4ème ligne..." & Chr(10) & _
    "5ème ligne..." & Chr(10) & _
    "etc..."
End Sub

Sub mess_02b()
'texte provenant de cellules
With Sheets("Feuil1")
	MsgBox .Range("A1") & Chr(10) & _
	    .Range("A2") & Chr(10) & _
	    .Range("A3") & Chr(10) & _
	    "etc..."
End With
End Sub

Sub mess_02c()
'texte provenant de variables
Dim Var1 As String, Var2 As String, Var3 As String
Var1 = "Valeur de la variable 1"
Var2 = "Valeur de la variable 2"
Var3 = "Valeur de la variable 3"

MsgBox Var1 & vbLf & _
	Var2 & vbLf & _
	Var3 & vbLf & _
	"etc..."
End Sub

Sub mess_03a()
'Msgbox Ok + Annuler
Select Case MsgBox("Votre message ici", vbOKCancel, "Titre de la MsgBox")
    Case vbOK
        'procédure si click sur Ok
    Case vbCancel
        'procédure si click sur Annuler
End Select
End Sub

Sub mess_03b()
'MsgBox Oui + Non
Select Case MsgBox("Votre message ici", vbYesNo, "Titre de la MsgBox")
    Case vbYes
        'procédure si click sur Oui
    Case vbNo
        'procédure si click sur Non
End Select
End Sub

Sub mess_03c()
'MsgBox Réessayer + Annuler
Select Case MsgBox("Votre message ici", vbRetryCancel, "Titre de la MsgBox")
    Case vbRetry
        'procédure si click sur Réessayer
    Case vbCancel
        'procédure si click sur Annuler
End Select
End Sub

Sub mess_04a()
'MsgBox Oui + Non + Abandonner
Select Case MsgBox("Votre message ici", vbYesNoCancel, "Titre de la MsgBox")
    Case vbYes
        'procédure si click sur Oui
    Case vbNo
        'procédure si click sur Non
    Case vbCancel
        'procédure si click sur Annuler
End Select
End Sub

Sub mess_04b()
'MsgBox Abandonner + Réessayer + Ignorer
Select Case MsgBox("Votre message ici", vbAbortRetryIgnore, "Titre de la MsgBox")
    Case vbAbort
        'procédure si click sur Abandonner
    Case vbRetry
        'procédure si click sur Réessayer
    Case vbIgnore
        'procédure si click sur Ignorer
End Select
End Sub

Sub mess_05()
'MsgBox Oui + Non + Abandonner + icône Question
Select Case MsgBox("Votre message ici", vbYesNoCancel + vbQuestion, "Titre de la MsgBox")
    Case vbYes
        'procédure si click sur Oui
    Case vbNo
        'procédure si click sur Non
    Case vbCancel
        'procédure si click sur Annuler
End Select
End Sub

Sub mess_06()
'MsgBox Ok + Help
Dim Fichier_Aide As String
Fichier_Aide = "C:\WINDOWS\Help\calc.hlp"
Select Case MsgBox("Votre message ici", vbInformation + vbMsgBoxHelpButton, "Titre de la MsgBox", Fichier_Aide, 1)
    Case vbOK
        'procédure si click sur Ok
End Select
End Sub