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ù