Solution pour format date

Bonjour,
J'avais un probleme de format date insoluble posté hier, et ce matin, Eureka!!! (ou coup de bol!) j'ai trouvé et je pense que ça peut interesser du monde:

je demande à l'aide des 2 inputbox de me donner des dates mini et maxi, ces dates sont rentrées au format jj/mm/aaaa, le controle via un msg box est OK, mais quand je vais voir les valeurs dans le filtre auto, la restitution du format se fait en format US c'est à dire mm/jj/aaaa, comment faire pour imposer mon format "français". ( ex je saisie 10/07/2006 et ça devient 07/10/2006)
Voici mon code:
Sub filtre()
'Variables:
Dim DateFinFab As Date, Dim DateFinFab2 As Date, Dim DateCreation As Date

DateCreation = InputBox("ENTREZ LA DATE DE CREATION", "DATE DE CREATION")
DateFinFab = InputBox("ENTREZ LA DATE DE FIN FAB", "Date de Fin")
DateFinFab2 = DateFinFab + 7
Selection.AutoFilter Field:=5, Criteria1:=">= " & DateFinFab, operator:=xlAnd, Criteria2:="< " & DateFinFab2
Selection.AutoFilter Field:=4, Criteria1:="<" & DateCreation
End Sub

LA SOLUTION: il suffit de multiplier par 1
Exemple: Selection.AutoFilter Field:=4, Criteria1:="<" & DateCreation * 1
ET CA MARCHE!

Bonne journée a tous