Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
 
   Dim Reponse as Integer 
 
   Msg = "Merci beaucoup" & Chr(13) & _
      "c'est plus sympa comme cela."
 
   Response = MsgBox(Msg, vbYesNo + mbIcExclam + mbDefBtn2, "Titre de la box")
Voila, déjà testé