XL 2016 Explication Code

[Ed's]

Bonjour, est-ce que quelqu'un pourrai m'expliquer ce code afin que je puisse sélectionner les bonnes colonnes sur mon fichier, svp.
je joins le fichier, merci de votre aide…

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