Bonjour à Tous

Dernièrement je suis venu à votre rencontre pour m'aider à trouver la solution d'un copier coller d'un classeur vers un autre sans Select ni .Copy

Vous m'aviez indiqué cette solution qui est très bonne
Code : Sélectionner tout - Visualiser dans une fenêtre à part
Feuille_Cible.Cells(maLigne, 98).Resize(1, 12).Value = Feuille_Source.Cells(Lig, 4).Resize(1, 12).Value
et aussi celle ci tout aussi pertinante
Code : Sélectionner tout - Visualiser dans une fenêtre à part
 Feuille_Cible.Range(Feuille_Cible.Cells(maLigne, 98), Feuille_Cible.Cells(maLigne, 109)).Value = Feuille_Source.Range(Sheets("Feuille_Source.Cells(Lig, 4), Feuille_Source.Cells(Lig, 15)).Value
C'est impeccable pour copier coller en ligne

Mais est il possible de faire un Transpose avec cette methode.

J'ai bien essayé mais dans le transpose tous les cellules prennent la valeur de la première cellule de mon copier

Une idée peut être

D'avance merci