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