Sub transfertTableau1DChamp()
Dim a()
n = 20000
ReDim a(1 To n)
For i = 1 To 20000
a(i) = i
Next i
'ici transfert sur la feuille en colonne'
[A1].Resize(UBound(a)) = Application.Transpose(a)
Cells.Clear
'ici je voudrais transfert en ligne
[A1].Offset(LBound(a), UBound(a)) = (a) 'plante
End Sub
Sub transfertTableau2DChamp()
Dim a()
Nlig = 20000
Ncol = 3
ReDim a(1 To Nlig, 1 To Ncol)
For l = 1 To Nlig
For c = 1 To Ncol
a(l, c) = l * c
Next c
Next l
'ici transfert sur la feuille en colonne'
[A1].Resize(UBound(a, 1), UBound(a, 2)).Value = a
Cells.Clear
'ici je voudrais transfert en ligne
[A1].Resize(UBound(a, 1), UBound(a, 2)).Value = Application.Transpose(a) 'plante
End Sub