[COLOR="DarkSlateGray"][B]Sub toto()
Dim oDat, u&, i&, j&, s#
With Sheets(1) [COLOR="Green"]'Feuille a traiter[/COLOR]
With .[A1].Resize([A1].Offset(.Rows.Count - 1, 0).End(xlUp).Row, 4)
oDat = .Value
u = UBound(oDat, 1)
For i = 2 To u
oDat(i, 4) = 0
For j = 2 To u
oDat(i, 4) = oDat(i, 4) + (oDat(j, 1) <= oDat(i, 1)) * (oDat(j, 2) = oDat(i, 2)) * oDat(j, 3)
Next
Next
.Value = oDat
End With
End With
End Sub[/B][/COLOR]