Option Explicit
Private Sub Worksheet_Deactivate()
Dim Ray As SsGr, Mbr As SsGr, TR(), L As Long, Détail, Wsh As Worksheet, Rng As Range
For Each Ray In Gigogne(Me.[A5:G27], 4, 3, Null, 1, 2)
Set Wsh = ThisWorkbook.Worksheets(Replace(Ray.Id, " ", ""))
For Each Mbr In Ray.Co
If Mbr.Id = "B" Then Set Rng = Wsh.[M3:U15] Else Set Rng = Wsh.[B4:J36]
ReDim TR(1 To Rng.Rows.Count, 1 To Rng.Columns.Count)
L = 0
For Each Détail In Mbr.Co
L = L + 1: TR(L, 1) = Détail(1): TR(L, 2) = Détail(2)
TR(L, 3) = Détail(6): TR(L, 4) = Détail(7)
TR(L, 5) = Détail(7) - Détail(6)
TR(L, 6) = Détail(5)
Next Détail
Rng.Value = TR: Next Mbr, Ray
End Sub