modifier contenue cellule via textbox d'un userform

Private Sub chercher_Click()
'l'erreur est ici ci dessous
'Dim Lig As Integer
'j'ai ajouter un module est mis l'instruction public Lig as Integer
'pour que la variable reste en memoire et ne se réinitiamise pas au début d'un sub

enregistrer.Visible = False
chercher.Visible = False
With Sheets("base")
 If TextBox1.Value = "" Then
  MsgBox "Vous avez oublié de saisir le NOM !"
  
  ' ici j'ai remarqué que si je cherche "a" mêmme s'il n'existe pas il me donne le nom qui commence par "a"
 'en plus je cherche le code qui me permet de chercher s'il n'y a pas le nom cherche il me parait un message qui dit il n'y a pas ce nom
 
 Exit Sub
End If
Dim c As Range
Dim drligne As Long
drligne = .Range("A65000").End(xlUp).Row
For Each c In .Range("A2:A" & drligne)
     If c.Text Like TextBox1.Text Then
     Lig = c.Row
     TextBox2 = .Cells(Lig, "B")
     TextBox3 = .Cells(Lig, "C")
     TextBox4 = .Cells(Lig, "D")
     TextBox5 = .Cells(Lig, "E")
     TextBox6 = .Cells(Lig, "F")
     TextBox7 = .Cells(Lig, "G")
     TextBox8 = .Cells(Lig, "H")
     TextBox9 = .Cells(Lig, "I")
     TextBox10 = .Cells(Lig, "J")
     TextBox11 = .Cells(Lig, "K")
     TextBox12 = .Cells(Lig, "L")
End If
Next
End With
End Sub