Sub Macro1()
Dim Debut As Long, Fin As Long
ActiveSheet.AutoFilterMode = False
Debut = CLng(CDate(InputBox("Quelle est la date de début d'analyse ? (jj/mm/aa)", "Date début")))
Fin = 1 + CLng(CDate(InputBox("Quelle est la date de fin d'analyse ? (jj/mm/aa)", "Date fin")))
Range("A1").AutoFilter Field:=1, Criteria1:="<" & Debut
Range([A2], [A2].End(xlDown)).SpecialCells(xlCellTypeVisible).EntireRow.Delete
Range("A1").AutoFilter Field:=1, Criteria1:=">=" & Fin
Range([A2], [A2].End(xlDown)).SpecialCells(xlCellTypeVisible).EntireRow.Delete
ActiveSheet.AutoFilterMode = False
End Sub