Private Sub Sensibility_Click()
Application.ScreenUpdating = False
For i = 0 To 3
For Each c In [g11:g65000].SpecialCells(xlCellTypeConstants, 23)
c.Value = c.Value - 0.01 + 0.0025 * i
Next c
Worksheets("CF").Range("IrrUnleveraged").Copy
Worksheets("Sensibility analysis").Range("f6").Offset(i).PasteSpecial xlPasteValues
Worksheets("CF").Range("IrrLeveraged").Copy
Worksheets("Sensibility analysis").Range("f15").Offset(i).PasteSpecial xlPasteValues
Next i
Application.CutCopyMode = False
End Sub