Bonsoir,
Sub Test()
Dim P(5) As Date, D(5) As Date, N As Date, nb As Date, i As Byte, Y As Boolean
effacertout
nb = [A1]
For i = 0 To 4
P(i) = Cells(i + 3, 1).Value
D(i) = Cells(i + 3, 2).Value
Next
N = nb + 7 * (i - 1)
For i = 1 To 30
Y = N <= P(0) Or N >= D(0) And N <= P(1) Or N >= D(1) And _
N <= P(2) Or N >= D(2) And N <= P(3) Or N >= D(3) And N <= P(4) Or N >= D(4)
If Y Then Range("c" & Range("c30").End(xlUp).Row + 1) = N
Next
End Sub
Bon, enfin je crois...
Tu me diras !