XL 2016 Explication Code

Option Explicit


Private Sub Worksheet_Change(ByVal R As Range)

Dim P As Range, F As Worksheet, Q As Range, lig As Variant, col As Variant

Set P = [C5].CurrentRegion
Set R = Intersect(R, P)
If R Is Nothing Then Exit Sub

Set F = Sheets("Suivi")
For Each R In R.EntireRow 'si entrées/effacements multiples
    Set Q = Intersect(R, P)
    
    lig = Application.Match(Q(5), F.Columns(2), 0)
    col = Application.Match(Q(1), F.Rows(2), 0)
    
    If IsNumeric(lig) And IsNumeric(col) Then F.Cells(lig, col) = Application.SumIfs(P.Columns(4), P.Columns(5), Q(5), P.Columns(1), Q(1), P.Columns(3), Q(3))

 Next
End Sub