XL 2013 Incrémentation avec copie du cumul

Sub ECHEANCIER()
Dim FSrc As Worksheet, FCbl As Worksheet
Set FSrc = Worksheets(Worksheets.Count)
FSrc.Copy After:=FSrc
Set FCbl = Worksheets(Worksheets.Count)
FCbl.Name = "ECHEANCIER-" & Format(Right$(FSrc.Name, 2) + 1, "00")
FCbl.[U15:X39].FormulaR1C1 = "='" & FSrc.Name & "'!RC[-5]"
FCbl.[Q15:R39].FormulaR1C1 = "=RC[5]+ROUNDUP(RC16*RC[-11],2)" ' (?)
FCbl.[P15:P39].Value = Empty
End Sub

Sub ECHEANCIER()
Dim FSrc As Worksheet, FCbl As Worksheet
Set FSrc = Worksheets(Worksheets.Count)
FSrc.Copy After:=FSrc
Set FCbl = Worksheets(Worksheets.Count)
FCbl.Name = "ECHEANCIER-" & Format(Right$(FSrc.Name, 2) + 1, "00")
FCbl.[K15:K39].Value = Empty ' FCbl.[K15:K39].Value
FCbl.[V15:W39].FormulaR1C1 = "='" & FSrc.Name & "'!RC[-5]"
FCbl.[L15:M39].FormulaR1C1 = "=ROUNDUP(RC11*RC[-6],2)"
FCbl.[Q15:R39].FormulaR1C1 = "=RC[5]+RC[-5]"
'FCbl.[P15:P39,U15:U39].FormulaR1C1 = "=IF(RC6<>0,RC[1]/RC6,0)" ' peut être plutôt :
FCbl.[P15:P39,U15:U39].FormulaR1C1 = "=IF(RC8<>0,ROUND(RC[3]/RC8,2),0)"
FCbl.[N15:N39,S15:S39,X15:X39].FormulaR1C1 = "=RC[-2]+RC[-1]"
End Sub