Sub rechercheobjectif() Dim Target As Long On Error GoTo Errorhandler Target = InputBox(« Entrez la valeur requise », « Entrez la valeur ») Worksheets(« Goal_Seek »).Activate With ActiveSheet.Range(« C7 ») .GoalSeek_ Goal :=Target,