résolu code erreur useforme

Sub recherche_animal()
Dim c As Range
Dim compteur_ref_animal As Integer
Dim firstAddress As String
Dim mavar As String

With Worksheets("base").Range("c:c")
mavar = TextBox2.Value
TextBox2.Value = Format(TextBox, "###")
Set c = .Find(mavar, LookIn:=xlValues, Lookat:=xlWhole) ' Lookat:=xlwhole => recherche exacte
                                                            ' Lookat:=xlPart  => recherche dans la cellule n'importe où

Private Sub btn_valide_Click()
Dim c As Range
Dim mavar As String
Dim reponse As Integer
      
'### modif pmo
If ligne = 0 Then ligne = Sheets("base").Range("B65536").End(xlUp).Row + 1
'###

    ' on écrit sur la ligne recherchée ou sur la suivante
    Range("B" & ligne) = TextBox1.Value
    Range("C" & ligne) = TextBox2.Value
    Range("D" & ligne) = DateValue(TextBox3.Value)
    Range("E" & ligne) = age_animal 'TextBox4.Value
    Range("F" & ligne) = Cb_race.Value
    Range("G" & ligne) = TextBox6.Value
    Range("H" & ligne) = TextBox7.Value
    Range("K" & ligne) = TextBox8.Value
    Range("L" & ligne) = TextBox9.Value
    Range("M" & ligne) = TextBox13.Value
    Range("N" & ligne) = TextBox11.Value
    Range("P" & ligne) = TextBox14.Value
    Range("I" & ligne) = TextBox10.Value
    Range("O" & ligne) = TextBox15.Value
    Range("A" & ligne) = Range("A" & ligne - 1) + 1

efface

End Sub

Private Sub UserForm_Initialize()
    TextBox2.SetFocus
'### modif pmo
Me.StartUpPosition = 0
'/// à régler à la main selon votre écran ///
'/// Comme vous êtes seul utilisateur il  ///
'/// n'est pas utile d'utiliser les APIs  ///
Me.Top = 370  'à régler à la main selon votre écran
Me.Left = 620 'à régler à la main selon votre écran
'////////////////////////////////////////////
'###
End Sub