Sub UneMsgBoxPasCommeLesAutres()
Dim mReturn As String
mReturn = cMsgBox(1, _
vbYesNoCancel, _
"Personnaliser vos boutons", _
"C'est posssible grâce au API", _
, _
"Arthour973", _
"veut changer", _
"le Message")
cMsgBox 1, vbOKOnly, "Personnaliser vos boutons", "Vous avez cliquer sur le bouton: " & mReturn, , "OK, je note"
End Sub