[COLOR="DarkSlateGray"][B]Sub toto()
[B3].Value = 0
[A2].FormulaArray = "=IF(R[-1]C[1]="""","""",IF(ISNUMBER(RC[1]),IF(2*RC[1]>INDIRECT(""R""&MAX((R1C:R[-1]C="""")*ROW(R1:R[-1]))&""C(1)"",0),INDIRECT(""R""&MAX((R1C:R[-1]C="""")*ROW(R1:R[-1]))&""C(1)"",0)-RC[1],RC[1]),""""))"
[B2].FormulaArray = "=SUM(INDIRECT(""R""&ROW(R[1])&""C""&COLUMN(C)&"":R""&MIN(IF(R[1]C:R201C="""",ROW(R:R200),99999))&""C""&COLUMN(C),0))"
End Sub[/B][/COLOR]