Pbm trie tableau

Bonjour à tous,


Est ce que quelqu'un pourrait me dire ce qui cloche sur ma macro?
Je débute en vba et je galère un peu....

Cette macro, devrait normalement identifier tout les mots d'une colonne donnée( D) de la feuille 1 et les copié dans la page 2 en évitant les redondances....


Merci d'avance

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Sub Triage() sheets("Feuil2").range("A1").value=sheets("Feuil1").range("D1").value j=2 for i=1 to 3000 if ( sheets("Feuil1").range("Di").value<> sheets("Feuil1").range( "Di+1") ) then sheets("Feuil2").range("Aj").value=sheets("Feuil1").range("Di+1").value endif j=j+1 for k=1 to (j-1) if sheets("Feuil2").range("Ak").value=sheets("Feuil2").range("Aj").value then sheets("Feuil2").range("Aj").value=0 endif next next End sub

---

seulement pour la synthaxe

Code:

---

1 2	sheets("Feuil1").range("D" &i).value<> sheets("Feuil1").range( "D" & i+1) ) '....etc

---

Ok, merci.


Bonne fin de soirée