Sub GénérerPlanning()
Dim TE(), TS(), LE&, C&, LS&
TE = Feuil1.UsedRange.Value
ReDim TS(1 To 1000, 1 To 33)
For LE = 3 To UBound(TE, 1)
For C = 3 To UBound(TE, 2)
If Not IsEmpty(TE(LE, C)) Then
LS = LS + 1
TS(LS, 1) = TE(LE, 1)
TS(LS, 2) = TE(2, C): End If: Next C
LS = LS + 1
TS(LS, 1) = TE(LE, 1)
TS(LS, 2) = "Indisponibilité": Next LE
Feuil3.[A5].Resize(LS, 33).Value = TS
End Sub