XL 2016 Transposition horizontale

[CHALET53]

Bonjour
A partir du fichier exemple ci-joint, je sais mettre les données à traiter en tableau (tablo dans l'exemple)
J'apporte des modifications (bidon dans l'exemple) et j'écris l'ensemble dans un nouveau tableau tb2
A la fin, l'instruction suivante :
Sheets("Feuil2").Range("A1").Resize(UBound(tb2, 2), 1) = Application.Transpose(tb2)

inscrit le résultat en feuille 2 verticalement
Je cherche la solution pour reporter les informations en feuille 2 horizontalement sur la ligne 1

Merci à celles ou ceux qui pourront m'aider

Cordialement
Marc

 

[vgendron]

hello
suffit juste de ne pas transposer et de faire le resize dans le bon sens..

 

[CHALET53]

Re,
Il doit me manquer quelque chose : J'ai modifié l'instruction comme ceci :

Sheets("Feuil2").Range("A1").Resize(UBound(tb2, 2), 1) =tb2

Il ne se passe rien.

Si vous pouviez me préciser ce sui cloche ...

Merci

 

[vgendron]

et le resize dans le bon sens.. ai je dit..
Sheets("Feuil2").Range("A1").Resize(UBound(tb2, 1), UBound(tb2, 2)) = tb2

 

[CHALET53]

Super
Merci
Cordialement