merci de la réponse mais je n'arrive pas à l'adapter à mon cas, car les données figurent sur une autre feuille et que mon msgbox est du type :
sub xxxxxxxxxxxxxxx()
With Sheets("données")
MsgBox "_____________________________________________________________" & Chr(10) & Chr(10) & _
"mois de " & .Range("c6") & Chr(10) & _
"_____________________________________________________________" & Chr(10) & Chr(10) & _
.Range("a8") & " : " & " : " & .Range("c8") & Chr(10) & _
.Range("a10") & " : " & .Range("c10") & Chr(10) & _
.Range("a16") & " : " & .Range("c16") & " litres à l'heure" & Chr(10)
End With
end sub