Macro excel probleme

Bonjour,

voilà j'ai un probleme
je veux faire une macro qui analyse la colone 1
et chaque fois qu'il y a une case non vide recherche sur la premiere ligne si une valeur similaire est presente
tester donc si cellule 1,Y trouve une cellule X,1 de meme valeur
et si oui indique la date a la position X,Y ou Y est la date du jour

donc la ou Y=C ca doit declancher une boucle (for ?) qui teste tout les X ligne 1 pour voir si quelque part X=C
si oui inscrire la date a la position X=C,17 (puisqu'on est le 17)
ce qui donne :

A B C D
F
G
H
C
R
T
z
z
z
z
z
z
z
z
z
z 17

j'ai fait ceci mais ca ne marche pas :

sub test()
For y = 1 To 25
If Cells(1, y).Value <> "" Then
For x = 1 To 10
If Cells(x, 1).Value = Cells(1, y).Value Then
Cells(x, Day(Date)).Value = Date
End If
Next x
End If
Next y
end sub

ca tourne sans aucune erreur mais sans resultat.

Je ne comprend pas pourquoi...

Pouvez vous m'aider a corriger ça ?
ou me montrer comment faire si une autre methode est necessaire

Merci