VBA - Transformer un tableau bidimensionnel en unidimensionnel

Function JoindreMat$(Plage, Optional Separateur$)
Dim tablo(), n&
ReDim tablo(Plage.Count - 1) 'tableau à une dimension
For Each Plage In Plage.Value
  tablo(n) = Plage
  n = n + 1
Next
JoindreMat = Application.Trim(Join(tablo)) 'séparateur : espace
If Len(Separateur) Then JoindreMat = Replace(JoindreMat, " ", Separateur)
End Function

Function JOINDRE(Plage, Optional Separateur = " ")
Dim tablo(), n
Plage = Plage '=> matrice
For Each JOINDRE In Plage
  ReDim Preserve tablo(n) 'tableau à une dimension
  tablo(n) = JOINDRE
  n = n + 1
Next
JOINDRE = Replace(Application.Trim(Join(tablo)), " ", Separateur)
End Function

Function ConCatRange22(CellBlock As Range, _
            Optional Delim$ = "") _
            As String
'entered as =concatrange22(a1:a10,"|") desired delimiter between quotes
'or as =concatrange22((a1:a10,e1,f1,g1:g4)"|") for non-contiguous ranges.
Dim Cell As Range, sbuf$ ' à ma sauge
For Each Cell In CellBlock.Cells
If Not IsEmpty(Cell) Then 'à ma sauce aussi
sbuf = sbuf & Cell.Text & Delim
End If
Next Cell
ConCatRange22 = Left(sbuf, Len(sbuf) - Len(Delim))
End Function ''//-> Gord Dibben MS Excel MVP

Function Joindre1(Plage, Separateur)
On Error Resume Next
1 Plage = Application.Transpose(Plage)
If IsError(UBound(Plage, 2)) Then Else GoTo 1
Joindre1 = Join(Plage, Separateur)
End Function

Function Joindre1(Plage, Separateur)
On Error Resume Next
Plage = Application.Transpose(Plage)
If IsError(UBound(Plage, 2)) Then Else Plage = Application.Transpose(Plage)
Joindre1 = Join(Plage, Separateur)
End Function