Sub test()
Dim Curve_Name As String, x As Range
Curve_Name = InputBox(Prompt:="Enter the curve to be treated", _
Title:="CURVE TREATMENT", Default:="CU_ASCII_")
Set x = Cells.Find(What:=Curve_Name, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByColumns)
If Not x Is Nothing Then
MsgBox ("trouvé : ligne = " & x.Row & " , colonne = " & x.Column)
Else
MsgBox ("pas trouvé ")
End If
End Sub