For Each Détail In Commune.Co
LDt = LDt + 1
For C = 1 To 37: TDt(LDt, C) = Détail(C): Next C
TRs(LRs, 5) = TRs(LRs, 5) + Détail(34)
TRs(LRs, 8) = TRs(LRs, 8) + Détail(37): Next Détail
Next Commune, LibCot, TxAtT23003, TxCoti, Qualif, CodCot
FDest.[AN1].Value = "CONDENSÉ"
FDest.[A1:AK1].Value = PlgDon.Rows(1).Value
FDest.[A2:AK5001].Value = TDt
FDest.[AN3:AU3].Value = PlgDon(1, 30).Resize(, 8).Value
FDest.[AN4:AU3003].Value = TRs
FDest.Cells(LRs + 5, "AU").FormulaR1C1 = "=SUBTOTAL(9,R4C:R[-2]C)"
FDest.Columns.AutoFit
FDest.[A:AK].Columns.Hidden = True
Next CodSiret