salut la communauté

j'ai un petit problème en fait je cherche à trouvé une chaîne de caractère dans une colonne d'une autre feuille
voilà mon programme

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
For l = 5 To 2000
If Worksheets(2).Cells(l, 51).Value = "y" Or Worksheets(2).Cells(l, 51).Value = "Y" Then
    Act = Worksheets(1).Cells(l, 13).Value
Set cherche = Worksheets(1).Columns(13).Cells.Find(what:=Worksheets(2).Cells(l, 13).Value)
    If cherche Is Nothing Then
    Else
    Worksheets(1).Cells(ligne1, 51).Value = "y"
    End If
 
    End If
mais quand je le lance ça me met erreur '1004' erreur définie par l'application ou par l'objet.

Je ne comprends pas mon erreur

merci d'avance pour votre aide