LRc = LRc + 1
TRc(LRc, 1) = LibCot.Id: TRc(LRc, 2) = CodCot.Id: TRc(LRc, 3) = Commune.Id
TRc(LRc, 4) = Qualif.Id: TRc(LRc, 6) = TxCoti.Id: TRc(LRc, 7) = TxAtT23003.Id
For Each Détail In Commune.Co
LRt = LRt + 1
For C = 1 To 37: TRt(LRt, C) = Détail(C): Next C
TRd(LRd, 5) = TRd(LRd, 5) + Détail(34)
TRd(LRd, 8) = TCd(LRd, 8) + Détail(38) ' Détail(37)