Sub ValeurUnique()
Application.ScreenUpdating = False
With Sheets("Feuil1")
.[G2:I200].Clear
.Range("A1:C200").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Range("M1:M2"), CopyToRange:=Range("G1:I1"), Unique:=False
End With
With [I2:I200]
.FormulaR1C1 = _
"=IF(RC[-2]="""","""",SUMPRODUCT((R2C1:R200C1=RC[-2])*(R2C[-7]:R200C[-7]=RC[-1]),R2C[-6]:R200C[-6]))"
.Select
.Copy
.PasteSpecial Paste:=xlPasteValues
.Application.CutCopyMode = False
End With
[I2].Select
Application.ScreenUpdating = True
End Sub