Sub Extraction()
On Error Resume Next
Dim d_analyse As Date
Sheets('feuil1').Select
d_analyse = InputBox('Indiquer la date d'analyse souhaité ', 'Indiquer la date d'analyse souhaité ', 'jj/mm/aa')
Selection.NumberFormat = 'd-mmm-yy'
Selection.AutoFilter Field:=14, Criteria1:='>=' & d_analyse, Operator:=xlAnd
Selection.AutoFilter Field:=13, Criteria1:='<=' & d_analyse, Operator:=xlAnd
End Sub