Bonsoir,
Tiens, un dernier code...
Sub message()
une = Array("68", "111", "110", "39", "116", "32", "116", "97", "107", "101", "32", "77", "101")
deux = Array("32", "32", "32", "32", "32", "32", "32", "102", "111", "114", "32", "97")
trois = Array("66", "97", "99", "32", "224", "32", "100", "111", "117", "99", "104", "101")
For Each x In Array(Array(une), Array(deux), Array(trois))
For Each s In x
For j = LBound(s) To UBound(s)
msg = msg & Chr(s(j))
Next j
msg = msg & Chr(10)
Next s
Next x
MsgBox msg
End Sub
Edit, juste pour centrer dans la msgbox...