Bonjour et bienvenue sur le forum
Un essai à tester. Te convient-il ?
Option Explicit
Dim tablo, tabloR()
Dim i&, D As Date, F As Date, ln&
Sub Valider()
tablo = Range("B2").CurrentRegion
ReDim tabloR(1 To UBound(tablo, 1) - 1, 1 To 6)
D = Range("K3")
F = Range("N3")
ln = 0
For i = 2 To UBound(tablo, 1)
If (tablo(i, 1) < D And tablo(i, 2) > D) _
Or (tablo(i, 1) < F And tablo(i, 2) > D) Then
tabloR(ln + 1, 1) = tablo(i, 1)
tabloR(ln + 1, 3) = tablo(i, 2)
tabloR(ln + 1, 5) = tablo(i, 3)
ln = ln + 1
End If
Next i
Range("J4").CurrentRegion.Offset(3, 0).ClearContents
Range("J5").Resize(ln, 6) = tabloR
End Sub
Bye !