Bonsoir ou bonjour à tou(te)s

J'ai une variable tableau à 1 dimension qui peut contenir plus de 700000 données

En faisant des essais, je me suis rendu compte que la fonction "transpose" ne cause pas de soucis pour 10 000 données mais me génère une erreur à 690 000 données
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
'nomf est une variable string, tbcol mon tableau
Sheets(nomF).Range("A1").Resize(UBound(Tbcol), 1) = WorksheetFunction.Transpose(Tbcol)
je ne veux pas passer par une boucle, solution qui fonctionne, bien sur, mais allonge énormément le temps de traitement, donc ma question : quelqu'un connaitrait une parade ?
ci-dessous l'erreur générée sur la ligne