simplification copier coller sous vba avec integration li/col variable

Bonjour tout le monde
voila mon souci:
j'ai fait un programe de generation de tableau qui recupère des données calculés pour me cree un fichier utilisable. Afin de faciliter ou optimiser son efficience je cherche a eviter de mettre un copier coller dans VBA ( prise de memoire trop importante)

Voici le code que j'ai utilisé:

Code:

---

1 2 3 4 5 6 7 8 9

Do Until Col > 9 Worksheets("Tableau Prix-Destinations").Cells(307, Col).Copy Worksheets("FRT").Range("B14").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Li = 308 Do Until Li > 365 Worksheets("Tableau Prix-Destinations").Cells(Li, 2).Copy Worksheets("FRT").Range("A5").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False

---

Votre aide et propositions sont la bienvenu

Cordialement

AB

Bonjour,

Il serait préférable que tu indiques quelle(s) plage(s) tu souhaites copier dans "Tableau Prix-Destinations" et à quel endroit de "FRT" tu veux les coller.
En l’état, ton programme effectue simplement une flopée de copies vers les cellules A5 et B14 de "FRT" 8O.

Cordialement.

ofet le programe me retourne une valeur qui s'inscrit dans la cellule que je copie et la place ensuite dans un tableau recapitulatif

peut etre en passant le ficjier cela sera plus compréhensible

Pièce jointe 96583

Sans aller chercher plus loin, as-tu essayé une affection directe ?

Code:

---

1 2 3 4 5

Do Until Col > 9 Worksheets("FRT").Range("B14")= Worksheets("Tableau Prix-Destinations").Cells(307, Col) Li = 308 Do Until Li > 365 Worksheets("FRT").Range("A5").=Worksheets("Tableau Prix-Destinations").Cells(Li, 2)

---

Cordialement.

nikel ca va eviter de me bouffer de la memoire quand je le ferai tourner je te remercie j'était pas sure sur l'affectation directe