copier en boucle à chaque téléchargement successif

Bonjour à tous et à toutes,


J’ai construit une macro qui télécharge des données sur yahoo, avec une boucle sur une liste située en L2 :L4 ,
puis, une formule calcule dans la colonne P =((E2-E21)/E21)*100 au fur et à mesure du téléchargement (et donc à chaque tour de boucle)

je cherche à copier les calculs successifs de la colonne P vers la Feuil2 (1 colonne par téléchargement)


le code suivant copie 3 fois la même colonne à chaque passage et l’envoie au fur et à mesure dans les colonnes A à C…ce qui fait qu’au lieu d’obtenir 3 colonnes différentes, j’obtiens 3 fois le résultat du dernier téléchargement :

Sub COPIE()
compte = Range("L2", Range("L2").End(xlDown)).Count
For n = 1 To compte Step 1
Range("P260").Select
Selection.Copy
Sheets("Feuil2").Select
Cells(1, n).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Sheets("Feuil1").Select
Range("A1").Select
Next
End Sub

Je n’arrive pas à régler cette boucle… (pieds dans l'tapis)

Quelqu’un peut-il m’aider à sortir de là…

Merci d’avance

albert