Re,
De ça :
.Range('A2').FormulaR1C1 = '=IF(ISERROR(SUMPRODUCT((PG20' & Format(annee, '00') & '!R7C1:R65536C1=''Curatif'')*((PG20' & Format(annee, '00') & '!R7C2:R65536C2=''B1'')+(PG20' & Format(annee, '00') & '!R7C2:R65536C2=''B2'')+(PG20' & Format(annee, '00') & '!R7C2:R65536C2=''B3'')+(PG20' & Format(annee, '00') & '!R7C2:R65536C2=''B4''))*(PG20' & Format(annee, '00') & '!R7C8:R65536C13))),0,SUMPRODUCT((PG20' & Format(annee, '00') & '!R7C1:R65536C1=''Curatif'')*((PG20' & Format(annee, '00') & '!R7C2:R65536C2=''B1'')+(PG20' & Format(annee, '00') & '!R7C2:R65536C2=''B2'')+(PG20' & Format(annee, '00') & '!R7C2:R65536C2=''B3'')+(PG20' & Format(annee, '00') & '!R7C2:R65536C2=''B4''))*(PG20' & Format(annee, '00') & '!R7C8:R65536C13)))'
tu gardes ça :
.Range('A2').FormulaR1C1 = '=SUMPRODUCT((PG20' & Format(annee, '00') & '!R7C1:R65536C1=''Curatif'')*((PG20' & Format(annee, '00') & '!R7C2:R65536C2=''B1'')+(PG20' & Format(annee, '00') & '!R7C2:R65536C2=''B2'')+(PG20' & Format(annee, '00') & '!R7C2:R65536C2=''B3'')+(PG20' & Format(annee, '00') & '!R7C2:R65536C2=''B4''))*(PG20' & Format(annee, '00') & '!R7C8:R65536C13))'
Tu regardes le dernier fichier (ton post suivant) en A4 et B4, c'est supprimé