Sub ggggg()
datedeb = InputBox("Date début ?")
If Not IsDate(datedeb) Then Exit Sub
datefin = InputBox("Date fin ?")
If Not IsDate(datefin) Then Exit Sub
With Sheets("Feuil2")
.[A1:B1] = "Date"
.[A2] = ">=" & datedeb
.[B2] = "<=" & datefin
Sheets("Feuil1").Range("A1:D5").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=.Range("A1:B2"), CopyToRange:=.Range("A4"), Unique:=False
.Rows("1:3").Delete
End With
End Sub