Set cell = Range("A2:A" & Application.Max(3, Range("A" & Rows.Count).End(xlUp).Row)).Find(CmbNom, lookat:=xlWhole)
' Si le nom a été trouvé cell est différent de nothing
If Not cell Is Nothing Then
For j = 1 To 8
Controls("TextBox" & j) = Cells(cell.Row, j)
Next j
Else ' Si le nom n'a pas été trouvé, cell = nothing
TextBox1 = CmbNom
For j = 2 To 8
Controls("TextBox" & j) = ""
Cells(cell.Row, 6) = CDbl(Cells(cell.Row, 6))
Next j
End If