Option Explicit
Sub StatsCoup20P()
Dim RngDon As Range, TDon(), TDét(), L As Long
Set RngDon = [C5].Resize([C1000000].End(xlUp).Row - 4, 2)
TDon = RngDon.Value
ReDim TDét(1 To UBound(TDon, 1), 1 To 3)
For L = 1 To UBound(TDon, 1)
TDét(L, IIf((TDon(L, 1) + TDon(L, 2)) Mod 2, 3, TDon(L, 1) Mod 2 + 1)) = 1
Next L
With Intersect([H:J], RngDon.EntireRow)
.Value = TDét
[H3:J3].FormulaR1C1 = "=SUM(" & .Columns(1).Address(True, False, xlR1C1, False, .Columns(1)) & ")"
End With
[K3].FormulaR1C1 = "=SUM(RC[-3]:RC[-1])"
End Sub