XL 2013 Extraire des donnes dans tableau vba avec join

Sub test()
Dim Montab
Montab = Cells(1).CurrentRegion.Value
For i = 1 To UBound(Montab, 1)
For j = 1 To UBound(Montab, 2)
tmp = tmp & Montab(i, j) & ";"
Next j
Next i
MsgBox Left(tmp, Len(tmp) - 1)
End Sub

Sub Test_2()
Dim Montab
Montab = Cells(1).CurrentRegion.Value
For i = 1 To UBound(Montab, 1)
tmp = tmp & Join(Application.Index(Montab, i), ";") & ";"
Next i
MsgBox Left(tmp, Len(tmp) - 1)
End Sub

Private Sub CommandButton1_Click()
   Dim x, y, s As String
   For Each x In Range("A1:C5").Rows: For Each y In x.Cells: s = s & ";" & y: Next y, x: s = Mid(s, 2)
   MsgBox s
End Sub

Private Sub CommandButton1_Click()
Dim Montab As Variant, T$, element as variant

Montab = Range("A1:C5").Value
For Each element In Montab: T = T & element & ";": Next: T = Mid(T, 1, Len(T) - 1)

MsgBox T
 
End Sub

Private Sub CommandButton1_Click()
Dim T$, element

For Each element In [A1:C5]: T = T & element & ";": Next: T = Mid(T, 1, Len(T) - 1)

MsgBox T
  
End Sub

Option Explicit
Const lignes = 10000

Sub test()
Dim x As Range
Set p = [A1].Resize(lignes, 3)
For Each x In p.Cells
x = x.Address(0, 0)
Next
End Sub

Sub by_evaluate()
Dim T$, element, tim#
tim = Timer
For Each element In [A1].Resize(lignes, 3): T = T & element & ";": Next: T = Mid(T, 1, Len(T) - 1)

MsgBox "formule EVALUATE sur [A1].Resize(" & lignes & ", 3) :" & vbCrLf & Format(Timer - tim, "#0.00 SEC") & vbCrLf & T
End Sub

 Sub byvarianttableau()
Dim Montab As Variant, T$, element As Variant, tim#
tim = Timer
Montab = Range("A1").Resize(lignes, 3).Value
For Each element In Montab: T = T & element & ";": Next: T = Mid(T, 1, Len(T) - 1)

MsgBox "formule VARIABLE TABLEAU    sur [A1].Resize(" & lignes & ", 3) :" & vbCrLf & Format(Timer - tim, "#0.00 SEC") & vbCrLf & T
 
End Sub

Option Explicit
Const lignes = 900000
Sub by_evaluate()
Dim T$, element, tim#
tim = Timer
For Each element In [A1].Resize(lignes, 3): Next
MsgBox "formule EVALUATE sur [A1].Resize(" & lignes & ", 3) :" & vbCrLf & Format(Timer - tim, "#0.00 SEC")
End Sub
Sub byvarianttableau()
Dim Montab As Variant, T$, element As Variant, tim#
tim = Timer
Montab = Range("A1").Resize(lignes, 3).Value
For Each element In Montab: Next
MsgBox "formule VARIABLE TABLEAU    sur [A1].Resize(" & lignes & ", 3) :" & vbCrLf & Format(Timer - tim, "#0.00 SEC")
End Sub

Sub m_Evaluate()
Dim t, x$, xx$
t = [{111,222,333,444,555}]
x = t(3)
xx = [=INDEX({11;22;33;44;55},2,1)]
MsgBox x & Chr(13) & xx, vbInformation, "Exemples EVALUATE"
End Sub