Comprendre une macro

Bonjour,

Je suis débutante en VBA et je n'arrive pas à trouver ce que fait ce code c'est censé être une formule normalement pour calculer un prix en fonction d'un taux d'intérêt, dans ma feuille j'ai un bouton Calculer le prix qui lance cette macro mais je n'arrive pas à la comprendre ca doit être une formule normalement , Merci




Sub solverrun()


Dim targetCell As Range
Dim targetValue As Range
Dim changedCell As Range

Set targetCell = Range("j6")
Set targetValue = Range("j2")
Set changedCell = Range("j10")

ActiveSheet.Names.Add Name:="solver_targetCell", RefersTo:=targetCell, Visible:=False
ActiveSheet.Names.Add Name:="solver_targetValue", RefersTo:=targetValue, Visible:=False
ActiveSheet.Names.Add Name:="solver_changedCell", RefersTo:=changedCell, Visible:=False

'MsgBox targetCell.Address & " " & changedCell.Address & " " & targetValue.Value



SolverReset
SolverOk SetCell:=targetCell.Address, MaxMinVal:=3, ValueOf:=targetValue.Value, ByChange:=changedCell.Address

SolverSolve UserFinish:=True