Conversion range 2d vres array 1d rapidité

Sub DeuxD_Array_Convert_UN_D_Array_2()
Dim tblo_Un_D() As Variant
Dim C As Range


ReDim tblo_Un_D(0)
For Each C In [A1:E8]
 
 ReDim Preserve tblo_Un_D(UBound(tblo_Un_D) + 1)
 
 tblo_Un_D(UBound(tblo_Un_D)) = C.Value
 Cells(25, 5) = UBound(tblo_Un_D)
 Cells(25, 10).Resize(, UBound(tblo_Un_D) + 1) = tblo_Un_D

Next


End Sub

Sub DeuxD_Array_Convert_UN_D_Array_3()
Dim C As Range, i As Long
Dim tblo_Un_D(1 To 40) As Variant
For Each C In [A1:E8]
    i = i + 1
    tblo_Un_D(i) = C.Value
Next
Cells(25, 5) = UBound(tblo_Un_D)
Cells(25, 10).Resize(, UBound(tblo_Un_D)) = tblo_Un_D
End Sub

Sub DeuxD_Array_Convert_UN_D_Array_2()
Dim tblo_Un_D() As Variant
Dim C As Range

ReDim tblo_Un_D(0)

For Each C In [A1:E8]
 
 ReDim Preserve tblo_Un_D(UBound(tblo_Un_D) + 1)
 tblo_Un_D(UBound(tblo_Un_D)) = C.Value

Next

Cells(25, 5) = UBound(tblo_Un_D)
Cells(25, 10).Resize(, UBound(tblo_Un_D) + 1) = tblo_Un_D

End Sub