Sub Messages()
Dim tablo, i&, mes1$, mes2$, mes3$
tablo = Sheets("Feuil1").[A1].CurrentRegion.Resize(, 6) 'matrice, plus rapide
For i = 2 To UBound(tablo)
mes1 = mes1 & vbLf & tablo(i, 1) & vbTab & tablo(i, 4)
mes2 = mes2 & vbLf & tablo(i, 1) & vbTab & tablo(i, 5)
mes3 = mes3 & vbLf & tablo(i, 1) & vbTab & tablo(i, 6)
Next
MsgBox Mid(mes1, 2), , tablo(1, 4)
MsgBox Mid(mes2, 2), , tablo(1, 5)
MsgBox Mid(mes3, 2), , tablo(1, 6)
End Sub