Sub CalculerRecap()
Dim TE(), LE&, TS(1 To 31, 1 To 15), 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:Q36].Value = TS
End Sub