ActiveCell.FormulaR1C1 = _
"=SUMPRODUCT(('Datas CA'!R2C2:R65536C2='Calcul CA'!R[8]C2)*(('Datas CA'!R2C1:R65536C1='Calcul CA'!R4C3)+('Datas CA'!R2C1:R65536C1='Calcul CA'!R4C4)+('Datas CA'!R2C1:R65536C1='Calcul CA'!R4C5)+('Datas CA'!R2C1:R65536C1='Calcul CA'!R5C5)+('Datas CA'!R2C1:R65536C1='Calcul CA'!R4C6)+('Datas CA'!R2C1:R65536C1='Calcul CA'!R5C6)+('Datas CA'!R2C1:R65536C1='Calcul CA'!R4C7)+('Datas CA'!R2C1:R65536C1='Calcul CA'!R4C8)+('Datas CA'!R2C1:R65536C1='Calcul CA'!R4C9))*('Datas CA'!R2C7:R65536C7))"