Sub CocherFOwnCochés()
Dim TR(), LR As Long, C As Long, Coché, Princ As SsGr, Perm As SsGr, Détail
ReDim TR(1 To 10000, 1 To 9)
For Each Princ In Gigogne(TableUnique(WshFolOwn.[A2:I2], ActiveSheet.[A2:I2]), 3, 2)
For Each Perm In Princ.Co
Coché = Empty
For Each Détail In Perm.Co
If Détail(0) = 0 Then
Coché = Détail(9)
Else
LR = LR + 1
For C = 1 To 8: TR(LR, C) = Détail(C): Next C
TR(LR, 9) = Coché
End If: Next Détail, Perm, Princ
Application.EnableEvents = False
ActiveSheet.[A2:I2].Resize(LR).Value = TR
With ActiveSheet.[Flag]
.Interior.Color = &HDBAEFF: .Offset(, -1).Interior.Color = &HF2CAFF: End With
With ActiveSheet.[Flag].SpecialCells(xlCellTypeBlanks)
.Interior.Color = &HB8FD00: .Offset(, -1).Interior.Color = &HBDFF9D: End With
Application.EnableEvents = True
End Sub