[VBA]Rechercher si un matricule existe déjà dans la colonne de la feuilleX

Private Sub Client_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
' cherche si la valeur entrée existe déja dans la liste

NbLigC = F4.[A65000].End(xlUp).Row

MatTest = Me.Client
 For Each c In Range("Base!A2:A" & NbLigC)
     If c Like MatTest Then
       Exit Sub
     End If
 Next
msg = MatTest & vbCrLf & vbCrLf & _
        " N'est pas dans la liste des Clients !" & vbCrLf & vbCrLf & _
               "       Voulez-vous l'ajouter"    ' Définit le message.
Style = vbYesNo + vbQuestion + vbDefaultButton1    ' Définit les boutons.
Title = "Saisie Client "    ' Définit le titre.
              
 response = MsgBox(msg, Style, Title)
    If response = vbNo Then    ' L'utilisateur a choisi non.
        Client = ""
        Exit Sub
    End If
'La suite du code si le Nom n'est pas dans la base

Private Sub CommandButton1_Click()
If TextBox1 = "" Then Exit Sub
Dim i As Variant
With [A1].CurrentRegion.Columns(1) 'à adapter
    i = Application.Match(TextBox1, .Offset(1), 0)
    If IsNumeric(i) Then
        MsgBox "'" & TextBox1 & "' est déjà enregistré..."
        TextBox1.Activate 'TextBox dans la feuille de calcul
        'TextBox1.SetFocus 'TextBox dans un UserForm
        TextBox1.SelStart = 0
        TextBox1.SelLength = Len(TextBox1)
    Else
        .Cells(.Rows.Count + 1) = TextBox1
        TextBox1 = "" 'RAZ
    End If
End With
End Sub