Probleme avec une Macro (Doublon)

Bonjour le forum, je bricole un suivis de stock avec des bouts de code pris sa et la sur ce forum.
Mon souci du jour je voudrait que lorsque on entre un nouveau symbole (Texbox1) qui n'est pas forcement numérique, lorsque sa longueur =8 il va vérifier si le symbole n'est pas déjà dans la base en colonne A de la feuille Base. Ci-joint le remplissage de TextBox1 et la Macro doublon qui ne trouve pas de doublon. Merci d'avance de votre aide.

Dominique

Private Sub TextBox1_Change()
TextBox1.MaxLength = 8
TextBox1.AutoTab = True
'On Error Resume Next
'If Not IsNumeric(Right(TextBox1, 1)) Then
'MsgBox "Le caractere saisie n'est pas valide"
'TextBox1 = Left(TextBox1, Len(TextBox1) - 1)
'End If
If TextBox1.TextLength = 8 Then Call Doublon
Call Deprotege
Range("M1") = TextBox1
Range("A2") = TextBox1
TextBox4 = Range("B2")
TextBox5 = Range("C2")
End Sub

Sub Doublon()
Label1 = "Vérification du symbole en cours !"
Dim p As Integer
x = 0
p = Range("A65536").End(xlUp).Row

For j = 3 To p - 3
If Sheets("Base").Cells(j, 1)= TextBox1 Then
Label1 = "Ce symbole est déja en mémoire en ligne " & j & " :"
Else
Label1 = "Ce symbole n'est pas en mémoire : "
End If
Next j

End Sub