Sub a() 'test OK
Dim dd&, df&
With Sheets("Feuil1")
dd = CLng(.Range("E2").Value)
df = CLng(.Range("E3").Value)
End With
Sheets("Infos du jour").Range("A1").AutoFilter _
Field:=1, _
Criteria1:=">=" & dd, Operator:=xlAnd, _
Criteria2:="<=" & df
End Sub