Private Sub CBnMailing_Click()
Dim T(1 To 5000, 1 To 5), TNP() As String, Chambre As SsGr, DatDéb As SsGr, DatFin As SsGr, L As Long, Détail, N&
For Each Chambre In Gigogne(CL.PlgTablo, 5, 3, 4, Null, 1, 2)
For Each DatDéb In Chambre.Co
For Each DatFin In DatDéb.Co
L = L + 1: T(L, 1) = "Chambre " & Chambre.Id
ReDim TNP(1 To DatFin.Count): N = 0
For Each Détail In DatFin.Co: N = N + 1: TNP(N) = Détail(1) & " " & Détail(2): Next Détail
T(L, 1) = Join(TNP, vbLf): T(L, 2) = DatDéb.Id: T(L, 3) = DatFin.Id: T(L, 4) = Chambre.Id
Next DatFin, DatDéb, Chambre
WshCourr.[A1:D5000].Value = T
WshCourr.Rows.AutoFit
End Sub