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 : Sélectionner tout - Visualiser dans une fenêtre à part
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