Sub DispatchOwn()
Dim Usr As SsGr, Own As SsGr, Dét, T(), L&, C&, Ignorer As Boolean
ReDim T(1 To 500, 1 To 4)
For Each Usr In Gigogne(TableUnique(TabCols(Feuil3.[A2:B2], 1, Null, Null, 2), Feuil2.[A2:D2]), 1, 4)
For Each Own In Usr.Co
Ignorer = True
For Each Dét In Own.Co
If Dét(0) = 0 Then
Ignorer = False
ElseIf Ignorer Then
Exit For
Else
L = L + 1
For C = 1 To 4: T(L, C) = Dét(C): Next C
End If
Next Dét, Own, Usr
Feuil4.[A10].Resize(500, 4).Value = T
End Sub