Sub TestOK()
Dim Annee$, col&
Annee = "2015"
col = Rows("1:1").Find(Annee, After:=Cells(1, 1), LookAt:=xlWhole, SearchOrder:=xlByColumns).Column
g = InputBox("date début?", "Titre", Date)
h = InputBox("date fin?", "Titre", Date + 30)
[A1].CurrentRegion.AutoFilter col, ">=" & CDate(Format(g, "mm/dd/yyyy")), 1, "<=" & CDate(Format(h, "mm/dd/yyyy"))
End Sub