tester un textbox pour afficher un message si doublon l

Dim fin As Integer, i As Integer
fin = ActiveWorkbook.Sheets("Feuil2").Range("A65536").End(xlUp).Row
For i = 2 To fin
    If TextBox1.Value = ActiveWorkbook.Sheets("Feuil2").Cells(i, 1).Value Then
        MsgBox "Attention numéro déjà saisie dans la base !", vbCritical
        Exit Sub
    End If
Next

Private Sub texb_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
   If texb.Name <> "Nouveau" Then Exit Sub
   Dim Est As Range
    With Feuil2
        Set Est = .Range("A1:B" & .Cells(Rows.Count, 1).End(xlUp).Row).Find(texb, LookIn:=xlValues, lookat:=xlWhole, MatchCase:=True)
    End With
    If Est Is Nothing Then Exit Sub
    MsgBox "Ce numéro est déjà dans la base !", vbCritical, "Code refusé :"
    texb = ""
    texb.SetFocus
End Sub

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim r As Range 'déclare la variable r (Recherche)
 
If TextBox1.Value <> "" Then 'condition 1 : si la TextBox1 n'est pas vide
    Set r = Sheets("Feuil2").Columns(1).Find(TextBox1.Value, , xlValues, xlWhole) 'définit la recherche r
    If Not r Is Nothing Then 'condition 2 : s'il existe au moins une occurrence
        MsgBox "Attention numéro déjà saisie dans la base !", vbCritical 'message
        Cancel = True 'annule la sortie de la TextBox1
        TextBox1.SetFocus 'place le curseur dans la Textbox1
        'sélectionne la TextBox1
        TextBox1.SelStart = 0 'début de la sélection
        TextBox1.SelLength = Len(TextBox1.Value) 'longueur de la sélection
    End If 'fin de la condition 2
End If 'fin de la condition1
End Sub