Public Sub SolverIRS()
Application.EnableEvents = False
Worksheets("Data").Range("X52").GoalSeek Goal:=Worksheets("Data").Range("X53").Value, _
ChangingCell:=Worksheets("Data").Range("Y49")
End Sub
Public Function AutoCalcul(X As Double, Y As Double)
If X <> Y Then
Call SolverIRS
Else
AutoCalcul = "OK"
End If
End Function