Sub Recap_Tabs_Surfaces_ParDR_OP_Site_vR44()
'Synthese R4
Dim PlgDon As Range, TS(), L&, C&, DPT As SsGr, SRC As SsGr, SIT As SsGr, BAT As SsGr, Détail
Dim TotSRC() As Double, TotDPT() As Double
Dim CFin As Long, LFin As Long
Set PlgDon = ColUti(FBase1.[A5:R5])
LFin = PlgDon.Rows.Count
CFin = 12
ReDim TS(1 To LFin, 1 To CFin), TotSRC(4 To CFin), TotDPT(4 To CFin)
For C = 1 To 12: TS(1, C) = Array("DPT", "OP", "SITE", "Nb BAT", "Nb lignes", "Nb sites", "Nb OP", "", "", "SHON", "SUB", "SUN")(C - 1): Next C
L = 1
For Each DPT In Gigogne(PlgDon, 1, 10, 2, 8)
For C = 4 To CFin: TotDPT(C) = 0: Next C
For Each SRC In DPT.Co
For C = 4 To CFin: TotSRC(C) = 0: Next C
For Each SIT In SRC.Co
L = L + 1
TS(L, 1) = DPT.Id
TS(L, 2) = SRC.Id
TS(L, 3) = SIT.Id
TS(L, 4) = SIT.Count 'Nb BAT
For Each BAT In SIT.Co
For Each Détail In BAT.Co
TS(L, 10) = TS(L, 10) + Détail(14)
TS(L, 11) = TS(L, 11) + Détail(17)
TS(L, 12) = TS(L, 12) + Détail(18)
Next Détail
TS(L, 5) = TS(L, 5) + BAT.Count: Next BAT 'Nb lignes
For C = 4 To CFin: TotSRC(C) = TotSRC(C) + TS(L, C): Next C, SIT
L = L + 1
TS(L, 2) = "Total pour " & SRC.Id
TotSRC(6) = SRC.Count 'Nb sites
For C = 4 To CFin: TS(L, C) = TotSRC(C): TotDPT(C) = TotDPT(C) + TotSRC(C): Next C
TS(L, 7) = Empty: L = L + 1: Next SRC
L = L + 1
TS(L, 1) = "Total pour " & DPT.Id
TotDPT(7) = DPT.Count 'Nb OP
For C = 4 To CFin: TS(L, C) = TotDPT(C): Next C
L = L + 1: Next DPT
Application.EnableEvents = False
FR41.[A4].Resize(1000000, CFin).ClearContents
FR41.[A4].Resize(L, CFin).Value = TS
Application.EnableEvents = True
End Sub