Sub Volatilité_Call()
Do
Dim coursducall
coursducall = InputBox("Saisir le cours du CALL (--,--)", "VOLATILITE IMPLICITE / CALL")
If coursducall = "" Then
MsgBox ("Saisir le cours du CALL")
GoTo REDEMANDE
Else
coursducall = Replace(coursducall, ".", ",")
If Not IsNumeric(coursducall) Then
MsgBox ("Saisir un chiffre" & Chr(10) & "(valeur numerique uniquement format (--,--))")
GoTo REDEMANDE
Else
coursducall = Replace(coursducall, ",", ".")
Range("F10").GoalSeek Goal:=coursducall, ChangingCell:=Range("C8")
End If
End If
Exit Sub
'Unload UserForm1
REDEMANDE:
Loop Until (IsNumeric(coursducall) And coursducall <> "")
End Sub