Sub PourTest()
Columns(1).Clear
[A1] = "a;b;c;d"
[A2] = "e;f;g;h;i"
[A3] = "j;k;l;m;n;o"
MsgBox "Procéder à l'empilement...", vbQuestion, "Test"
Empiler
End Sub
Sub Empiler()
Dim vArr, strVal$, vOut, i&
vArr = Range("A1:A3")
strVal = Join(Application.Transpose(vArr), ";")
vOut = Split(strVal, ";")
Cells(1).Resize(UBound(vOut) + 1) = Application.Transpose(vOut)
End Sub