Option Explicit
Private Sub CommandButton1_Click()
Dim TDon(), TRés(), L&, C&, Sal As SsGr, Dat As SsGr
TDon = ColUti(Feuil1.[A2:C2]).Value
For L = 1 To UBound(TDon, 1)
TDon(L, 2) = Int(CDate(TDon(L, 1))): Next L
ReDim TRés(1 To 500, 1 To 50)
L = 0
For Each Sal In Gigogne(TDon, 3, 2)
L = L + 1: C = 4
TRés(L, 1) = Sal.Id
For Each Dat In Sal.Co
C = C + 1: TRés(L, C) = Dat.Id
Next Dat, Sal
Feuil2.[A2].Resize(500, 50).Value = TRés
End Sub