Renvoyer une valeur dans une cellule

Bonjour à tous,

Je rencontre un problème avec mon code ci-dessous.

En effet, dans la feuille "x",la condition "sinon" ne s'applique pas alors que cette même condition s'applique pour la feuille "y".

Pourriez-vous m'éclairer sur ce problème, s'il vous plaît?

   
For iRow = 2 To LastRow
On Error Resume Next
    Set ColRef = x.Range("A:A").Find(y.Range("B" & iRow).Value)

    If Not ColRef Is Nothing Then

        y.Cells(iRow, 4).Value = "TRUE"
        x.Cells(ColRef.Row, 2) = "TRUE"

        Source = y.Cells(iRow, 3).Value
        Destination = "C:\Users\Desktop\OUTPUT\" & y.Cells(iRow, 1).Value
        FileCopy Source, Destination

        CountOutput = CountOutput + 1

    Else

        y.Cells(iRow, 4).Value = "FALSE"
        x.Cells(ColRef.Row, 2) = "FALSE"

    End If

Next iRow

Merci par avance pour votre aide.