Private Declare Function CharLower Lib "user32.dll" Alias "CharLowerA" (ByVal lpsz As String) As String
Private Declare Function CharUpper Lib "user32.dll" Alias "CharUpperA" (ByVal lpsz As String) As String
Sub Aquatique()
Dim Phrase As String
Phrase = "37 messages pour changer la casse d'un string" & Chr(13) & "(j'aime écrire cette phrase)"
MsgBox CharUpper(Phrase), vbInformation, "Lol"
End Sub