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