Private Sub Sensibility_Click()
Application.ScreenUpdating = False
Dim a As Double
a = Worksheets("CapEx & Charges").Range("entry_price").Value
' tu mets dans des variables les paramètres
For i = 0 To 5
Worksheets("CapEx & Charges").Range("B3").GoalSeek Goal:=(0.2 + i / 50), ChangingCell:=Worksheets("CapEx & Charges").Range("entry_price")
'ca c'est la valeur cible. On fait bouger le résultat par valeur cible et on recherche tous les 1/50èmes avec la boucle for
'une fois le paramètre bougé par valeur cible, je fais un ou des copier/ coller valeurs
Worksheets("CF").Range("profit").Copy
Worksheets("Sensibilité").Range("d6").Offset(i * 5).PasteSpecial xlPasteValues
'je décale de 5 cases vers le bas avant de faire une nouvelle boucle.
Next
Worksheets("CapEx & Charges").Range("entry_price").Value = a
'une fois la table constituée, je remets mon paramétrage d'origine
Application.CutCopyMode = False
End Sub