VBA - Comparer 2 variables (Type mismatch)

Bonjour à tous,

Je viens vers vous car j'essaye de comparer 2 variables mais j'ai un erreur de type mismatch...
Je ne vois pas très bien d'où ça peut venir...
Je sais il n'arrive pas à les comparer à cause de leur type mais vu que R est déclaré en variant, je ne vois pas pourquoi il ne veut pas...

Dim numCde
numCde = Val(TextBox1)

Dim R As Variant
R = Application.VLookup(numCde, CommandTable, 1, False)

If R <> numCde Then
MsgBox "ok"
Else
MsgBox "not ok"
End If

Je vous remercie d'avance pour vos retour