Dim MonTexte as String
.../...
With Sheets("MaFeuille")
MonTexte = .[A1].Text & " : " & .[B1].Text & Chr(10)
MonTexte = MonTexte & .[A2].Text & " : " & .[B2].Text & Chr(10)
MonTexte = MonTexte & .[A3].Text & " : " & .[B3].Text
End With
.../...
Msg = Msg & MonTexte