Option Explicit
Sub Filtrer()
Dim Plage As Range
Application.ScreenUpdating = False
With Worksheets("Feuil1")
.Cells.AutoFilter
Set Plage = .Range("A2:B" & .Range("A" & Rows.Count).End(xlUp).Row)
Plage.AutoFilter Field:=1, Criteria1:=">5:00", Operator:=xlAnd, Criteria2:="<16:30"
Plage.EntireRow.Delete
.Cells.AutoFilter
End With
Application.ScreenUpdating = True
End Sub
Cordialement.