Set PlgRé6 = Feuil4.[A4].Resize(Feuil4.[A65000].End(xlUp).Row - 3, 13)
Set PlgRé7 = Feuil1.[C2].Resize(Feuil1.[C65000].End(xlUp).Row - 1, 1)
PlgRé6.Columns(2).FormulaR1C1 = "=IFERROR(((SUMIFS(BASE!R2C12:R" & PlgRé7.Rows.Count + 1 & "C12,BASE!R2C3:R" & PlgRé7.Rows.Count + 1 & "C3,DETAILCONSO!RC1,BASE!R2C4:R" & PlgRé7.Rows.Count + 1 & "C4,DETAILCONSO!R3C)*100)/(SUMIFS(BASE!R2C10:R" & PlgRé7.Rows.Count + 1 & "C10,BASE!R2C3:R" & PlgRé7.Rows.Count + 1 & "C3,DETAILCONSO!RC1,BASE!R2C4:R" & PlgRé7.Rows.Count + 1 & "C4,DETAILCONSO!R3C))),""0,00"")"