Erreur lors la rechercher d'une valeur non trouvée dans une autre feuille

Bonjour,

J'ai besoin de votre aide. J'ai un fichier avec 2 feuilles, la 1ere inclus des références à rechercher, dans la colonne A et dans la 2ème un ensemble de références contenant ou pas les valeurs a chercher
Dans le programme je compte le nombre de références dans la colonne A puis chaque valeur est enregistrée dans un tableau dynamique (crée en fonction du nombre de valeur dans la colonne A). Mon problème est que lorsque le programme recherche une valeur qui n'est pas référencé dans la feuille 2 j'ai une erreur (91)

Je précise que j'ai essayé d'utiliser Set X = .. et donc If X Is Nothing ... mais cela me crée une autre erreur (424)

Sub saisie_nom()

    Dim n As Integer
    Dim nombre As String
    
    Worksheets("Feuil1").Activate
    
    n = Application.WorksheetFunction.CountA(Columns(1))
 
    'Déclaration tableau
    Dim tab_exemple()
    ReDim tab_exemple(n)
    
    
   'Enregistrement des valeurs dans le tableau
    For i = 1 To n
        tab_exemple(i) = Range("A" & i + 1)
    Next
    
    For i = 1 To n
    
        Worksheets("Feuil2").Select
        Cells.Find(What:=tab_exemple(i), LookIn:=xlValues, LookAt _
            :=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
            False, SearchFormat:=False).Activate
        With Selection.Interior
            .Color = 65535
        End With
    Next
    
End Sub

Merci de votre aide