Sub Somme2Critères()
Dim Dico As Object, T_In(), i As Long, c, T_Out()
Set Dico = CreateObject("Scripting.Dictionary")
T_In = Range("A2:C" & Range("A" & Rows.Count).End(xlUp).Row)
For i = LBound(T_In) To UBound(T_In)
Dico(T_In(i, 1) & "µ" & T_In(i, 2)) = Dico(T_In(i, 1) & "µ" & T_In(i, 2)) + T_In(i, 3)
Next i
i = 1
ReDim T_Out(1 To Dico.Count, 1 To 2)
For Each c In Dico.keys
T_Out(i, 1) = Split(c, "µ")(0)
T_Out(i, 2) = Split(c, "µ")(1)
i = i + 1
Next c
Range("E2").Resize(UBound(T_Out, 1), UBound(T_Out, 2)) = T_Out
Range("G2").Resize(Dico.Count, 1) = Application.Transpose(Dico.items)
End Sub