XL 2016 groupages et syntheses des bulletin de salaires

=SIERREUR(INDEX(INDIRECT(C$5&"!"&LIGNE()-1&":"&LIGNE()-1);EQUIV($C$2;INDIRECT(C$5&"!3:3");0));"")

Sub Worksheet_Activate()
    Dim T, L%, C%, N%, Total
    Application.ScreenUpdating = False
    T = Array("Janvier", "Février", "Mars", "Avril", "Mai", "Juin", "Juillet", "Aout", "Septembre", "Octobre", "Novembre", "Décembre")
    For C = 3 To 26
        For L = 8 To 34
            If L <> 20 And L <> 23 And L <> 29 Then
                For N = LBound(T) To UBound(T)
                    Total = Total + Sheets(T(N)).Cells(L, C)
                Next N
                Cells(L, C) = Total: Total = 0
            End If
        Next L
        Application.StatusBar = "Consolidation pour matricule :  " & Cells(3, C)
    Next C
    Application.StatusBar = ""
End Sub