'Nbr DS et DB par DR
L = 0: NSite = 0: NBat = 0
ReDim TS(1 To 10000, 1 To 3)
For Each Dr In Gigogne(TE, 1, 2, 3)
L = L + 1
TS(L, 1) = Dr.ID
TS(L, 2) = Dr.Count
NSite = NSite + Dr.Count
For Each DS In Dr.Co
TS(L, 3) = DS.Count
NBat = NBat + DS.Count
Next DS, Dr
L = L + 1
TS(L, 2) = NSite
TS(L, 3) = NBat
TDonn.[K3].Resize(10000, 3).Value = TS