Erreur de syntaxe

Bonjour,

J'essai de faire une macro qui recherche dans une colonne H l'un des mot présent dans la colonne A d'une autre feuille et s'il y a occurrence il copie le contenu de la cellule à droite de la colonne A dans la cellule 3 cellule à droite de la liste 1.

voila le code

Sub Test()
For Each x In Columns("H")
    For Each y In Worksheets("MC").Columns("A")
    strtext = y
    strtext = x
    If InStr(Start, UCase(x), UCase(y), vbTextCompare) Then
    y(, 1) = x(, 3)
    Next
Next

End Sub

Le problème est qu'une erreur de syntaxe apparait et met en surbrillance le x ici

 y(, 1) = x(, 3)

Merci d'avance pour vos réponse
Les guerre ne font que se succéder mais l'âme du guerrier reste éternel - TUPAC