Existe-t-il une fonction permettant d'empiler deux matrices?

=PETITE.VALEUR(A$1:C$2;LIGNE())

=SI(LIGNE()>NB(A:C);"";DECALER(A$1;MOD(LIGNE()-1;NB(A:A));(NB(A:A)<LIGNE())*2))

Function empilement(matA, matB)
Dim a(), e, n&
matA = matA: matB = matB
ReDim a(1 To UBound(matA) + UBound(matB))
For Each e In matA
  n = n + 1
  a(n) = e
Next
For Each e In matB
  n = n + 1
  a(n) = e
Next
empilement = a 'vecteur ligne
End Function

Sub Essai()
   a = [a2:A5]
   b = [b2:b5]
   c = Empilement(Range("a2:A5"), Range("b2:b5"))
   [K2:K9] = c
   e = Empilement(Empilement(a, b), a)
   [N2:N13] = e
End Sub

Function Empilement(Tab1, Tab2)
   Dim c()
   On Error Resume Next
   tmp = Application.Caller.Rows.Count
   If Err = 0 Then
     ReDim c(1 To Application.Caller.Rows.Count)
   Else
      ReDim c(1 To UBound(Tab1) + UBound(Tab2))
      If Err > 0 Then ReDim c(1 To Tab1.Count + Tab2.Count)
   End If
   On Error GoTo 0
   For Each k In Tab1: i = i + 1: c(i) = k: Next
   For Each k In Tab2: i = i + 1: c(i) = k: Next
   Empilement = Application.Transpose(c)
End Function

=EVALUER("{"&MCONCAT(matA;";")&";"&MCONCAT(matB;";")&"}")

Function Empilement(Tab1, Tab2)
   Dim c()
   ReDim c(1 To Tab1.Count + Tab2.Count)
   For Each k In Tab1: i = i + 1: c(i) = k: Next
   For Each k In Tab2: i = i + 1: c(i) = k: Next
   Empilement = Application.Transpose(c)
End Function

=EVALUER("{"""&MCONCAT(matA;""";""")&""";"""&MCONCAT(matB;""";""")&"""}")