Sub construire(mazone, emp)
Dim table(7)
With Sheets("Planif")
For lg = 1 To mazone.Rows.Count
For c = 1 To mazone.Columns.Count
table(0) = emp.Value
table(1) = .Cells(mazone.Row + lg, mazone.Column)
table(3) = .Cells(mazone.Row + lg, mazone.Column + c)
Set d = .Cells(mazone.Row, mazone.Column + c)
table(5) = Format(d, "dddd dd mmmm yyyy")
table(2) = Format(d, "hh:mm:ss")
table(4) = 0.5
table(6) = Format(d, "mmmm")