Option Explicit
Private Sub Worksheet_Activate()
Dim TE(), LE&, TS(), LS&, D As Date
TE = Feuil1.UsedRange.Value
ReDim TS(1 To 10000, 1 To 3)
For LE = 2 To UBound(TE, 1)
For D = TE(LE, 3) To TE(LE, 4)
LS = LS + 1
TS(LS, 1) = TE(LE, 1)
TS(LS, 2) = TE(LE, 2)
TS(LS, 3) = D
Next D, LE
Me.[A2:C10001].Value = TS
End Sub