Erreur d'exécution

Salut;

J'ai cette erreur :

Erreur d'exécution '13':
Incompatibilité de type

dans la ligne :

Set y = Cells(x.Row, 13).Resize(1, 199).Find(c.Offset(0, 1).Value,
LookAt:=xlWhole)

Les cellules dont lesquelles il y'a des problemes celles qui sont
remplies pas des : #N/A

Voila le code de la macro :

Sub transforme()
[M2:W300].ClearContents
[B1:B1000].AdvancedFilter Action:=xlFilterCopy, CopyToRange:=[M1],
Unique:=True
For Each c In Range([B2], [B65000].End(xlUp))
Set x = [M:M].Find(c, MatchCase:=False, LookAt:=xlWhole)
Set y = Cells(x.Row, 13).Resize(1, 199).Find(c.Offset(0,
1).Value, LookAt:=xlWhole)
If y Is Nothing Then
Cells(x.Row, 255).End(xlToLeft).Offset(0, 1) = c.Offset(0,
1).Value
End If
Next c
[M2:W300].Sort key1:=[M2]
End Sub


Merci de votre aide.