Bonjour à tous,
Avec un filtre
Sub FiltreDate()
Dim Lg&
Application.ScreenUpdating = False
On Error Resume Next
ActiveSheet.ShowAllData 'libère les filtres
On Error GoTo 0
Lg = Cells.Find("*", , , , xlByRows, xlPrevious).Row
Range("q2") = "=AND(f6>=$c$2,f6<=$c$3)" 'critères
Range("a5:o" & Lg).AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
Range("q1:q2"), Unique:=False
Range("q2").ClearContents
Application.Goto Range("a6"), Scroll:=True
End Sub
Amicalement
Claude