Sub ConcatTableau()
Cells.ClearContents
a = Array(1, 2, 3, 4)
b = Array(5, 6, 7, 8, 9)
c = Split(Join(a, ",") & "," & Join(b, ","), ",")
[A1].Resize(UBound(c) + 1) = Application.Transpose(c) 'chiffres alignés à droite
'------------------------------------------------------------------------------------------------------------------------------
[A12].Resize(1, UBound(c) + 1) = c 'chiffres alignés à gauche avec triangle en haut gauche de la cellule
[A13].Resize(1, UBound(c) + 1) = Application.Transpose(Application.Transpose(c)) 'chiffres alignés à droite
'------------------------------------------------------------------------------------------------------------------------------
End Sub