Dim M As Long, A As Long, F10Précéd As String, F10Décemb As String
M = Month(.[F9].Value): A = Right$(.[F9].Value, 2)
F10Précéd = "'" & Format(M - 2, "00") & "-" & Format(A, "00") & "'!RC6"
F10Décemb = "'12-" & Format(A - 1, "00") & "'!RC6"
.Cells(10, 19 - M).FormulaR1C1 = "=SUM(RC6:RC[-1]," & F10Précéd & "," & F10Décemb & ")"