InputBox FormatDate

Bonjour,

Je suis en train de créer une macro Excel avec une variable qui va contenir une date de début et de fin afin de l'utiliser dans un filtre. Mon souci (et j'ignore si j'ai mal cherché dans les forum car je n'ai rien trouvé qui résolve ce "bug") c'est si ma variable Date1 = 01/08/2013, en exécutant le code, la date apparaît au format 08/01/2013. Par contre tout va bien si la date = 31/08/2013. Pourriez-vous me dire ce qui ne va pas dans mon code ?

Merci d'avance:

Sub Macro1()

    Dim Date1 As Date
    Dim Date2 As Date
        
    'Définition des variables
    
    Date1 = Application.InputBox("Entre la date de début du mois à traiter:" & Chr(10) & "au format JJ/MM/AAAA")
    If Date1 = "0" Then Exit Sub
    Date1 = Format(Date1, "dd/mm/yyyy")
    Date2 = Application.InputBox("Entre la date de début du mois à traiter:" & Chr(10) & "au format JJ/MM/AAAA")
    If Date2 = "0" Then Exit Sub
    Date2 = Format(Date1, "dd/mm/yyyy")
        
    'Création onglet de travail

    Sheets("Table_Report_by_Country").Select
    Sheets("Table_Report_by_Country").Copy After:=Sheets("Demo")
    Sheets("Table_Report_by_Country (2)").Select
    Sheets("Table_Report_by_Country (2)").Name = "DATA"
    
    'Détermination dernière ligne
    
    If Range("A3").Value = "" Then
    lastli = Range("A2")
    Else: lastli = Range("A2").End(xlDown).Row
    End If
    
    'Filtre sur la période concernée
    
    Rows("1:1").Select
    Selection.AutoFilter
    Selection.AutoFilter Field:=7, Criteria1:="<" & Date1, Operator:=xlOr, _
        Criteria2:=">" & Date2
    Range("A2:A" & lastli).Select
    Selection.EntireRow.Delete
    Selection.AutoFilter
    
End Sub