Sub b()
Dim x$, y$, w$, xx$, xxx$, yy$, yyy$, zz$, zzz$
x = "Amédée 24"
y = "Luc 12"
w = "Jean-Pascal 36"
xx = Split(x)(0): xxx = Split(x)(1)
yy = Split(y)(0): yyy = Split(y)(1)
zz = Split(w)(0): zzz = Split(w)(1)
MsgBox xx & String(3, vbTab) & xxx & Chr(10) & yy & String(3, vbTab) & yyy & Chr(10) & zz & String(2, vbTab) & zzz, vbInformation, "Alignement mais pas toujours ;-)"
End Sub