Bonjour à tous,
Mon soucis est le suivant :
Dans la colonne D de la feuille1, chaque cellule comporte des données.
J'aimerais recopier les données de la cellule D2 dans E2, D3 dans E3, etc... jusque D10000 dans E10000.
Pour l'instant j'utilise :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
Sheets("Feuil1").Range("E2") = Sheets("Feuil1").Range("D2")
Sheets("Feuil1").Range("E3") = Sheets("Feuil1").Range("D3")
Sheets("Feuil1").Range("E4") = Sheets("Feuil1").Range("D4")
Sheets("Feuil1").Range("E5") = Sheets("Feuil1").Range("D5")
Sheets("Feuil1").Range("E6") = Sheets("Feuil1").Range("D6")
Sheets("Feuil1").Range("E7") = Sheets("Feuil1").Range("D7")
Sheets("Feuil1").Range("E8") = Sheets("Feuil1").Range("D8")
Sheets("Feuil1").Range("E9") = Sheets("Feuil1").Range("D9")
Sheets("Feuil1").Range("E10") = Sheets("Feuil1").Range("D10")
et comme celà jusque 10000.
J'aimerais trouver un code qui soit nettement plus léger et moins long pour que chaque cellule de la colonne E recoive les données de la celulle qui lui correspond dans la colonne D.

Quelqu'un pourrait-il m'aiguiller ?
Merci par avance.
Laurent