[vba] valeur nulle pour une variable

Bonjour a tous,

j'ai un soucis je crois assez classique.
Je cherche dans une colonne la premiere cellule contenant la chaine de caractere "6J".
J'utilise la propriete Find.
Mon probleme est que si je nai pas de valeur, la macro plante.

Voici mon code :

Sub TestCell()

Dim FirstRow6J As Variant

FirstRow6J = Columns("W:W").Find("6J", Range("W2"), , , xlByRows, xlNext).Row
Range("A1").Value = FirstRow6J

End Sub

Je n'arrive pas a gere le cas ou dans la colonne W je nai pas de cellule avec pour valeur 6J.
Merci de votre aide.