Sub EssaiDranreb()
Dim TDon(), LDon As Long, TRés(), LRés As Long, Clé As String, Dic As New dictionary
TDon = ActiveSheet.[A1].CurrentRegion.Value
ReDim TRés(1 To UBound(TDon, 1), 1 To 3)
For LDon = 1 To UBound(TDon, 1)
Clé = TDon(LDon, 2) & "|" & TDon(LDon, 3)
If Dic.exists(Clé) Then
LRés = Dic(Clé)
TRés(LRés, 3) = TRés(LRés, 3) + TDon(LDon, 16)
Else
LRés = Dic.Count + 1: Dic(Clé) = LRés
TRés(LRés, 1) = TDon(LDon, 2)
TRés(LRés, 2) = TDon(LDon, 3)
TRés(LRés, 3) = TDon(LDon, 16)
End If
Next LDon
ActiveSheet.[V1].Resize(Dic.Count, 3) = TRés
End Sub