Sub Macro7()
Dim Dte As Variant
Dte = Format(InputBox("Saisir la date concernée"), "mm/dd/yyyy")
If Not IsDate(Dte) Then Exit Sub
ActiveSheet.Range("$A$1:$C$5").AutoFilter Field:=3, Criteria1:= _
">=" & Dte, Operator:=xlAnd, Criteria2:="<=" & Dte
End Sub