Sub CalculerRecap()
Dim TE(), LE&, TS(1 To 31, 1 To 35), LS&, CS&, Mois#
TE = Centralisation.UsedRange.Value
Mois = RecapMois.[A1].Value
For LE = 3 To UBound(TE, 1)
If TE(LE, 1) = Mois Then
LS = TE(LE, 2): CS = TE(LE, 5)
TS(LS, CS) = TS(LS, CS) + TE(LE, 6) + TE(LE, 7)
End If
Next LE
RecapMois.[C6:AA36].Value = TS
End Sub