Dim startdate As Single
Dim enddate As Single
'On modifie le format date pour avoir un format JJ/MM/AAAA et non pas un MM/JJ/AAAA:
'startdate = CDate(Format(F_calendrier.TextBox1.Value, "dd/mm/yyyy"))
'enddate = CDate(Format(F_calendrier_fin.TextBox1.Value, "dd/mm/yyyy"))
Sheets(1).Select
'On applique le filtre sur la date:
ActiveSheet.Range("$A$1:$" & lettre & i).AutoFilter Field:=1, Criteria1:=">" & startdate, _
Operator:=xlAnd, Criteria2:="<" & enddate