XL 2013 filtre chronologique entre deux dates

Sub Filtre_entre_deux_dates()

 Dim crit1 As String, crit2 As String

    With ActiveSheet
        If Range("F1") <> "" And Range("G1") <> "" Then
            '
            ' Critères de date au format mois/jour/année
            crit1 = ">=" & Format(.Range("F1"), "mm/dd/yyyy")
            crit2 = "<=" & Format(.Range("G1"), "mm/dd/yyyy")
      
            With .ListObjects("Tableau1").Range
                .AutoFilter
                .AutoFilter Field:=2, Criteria1:=crit1, Operator:=xlAnd
                .AutoFilter Field:=4, Criteria1:=crit2, Operator:=xlAnd
            End With
        Else
            .ListObjects("Tableau1").Range.AutoFilter
        End If
    End With

End Sub

Sub Filtre_entre_deux_dates()
' Filtre_entre_deux_dates Macro
    Dim xDate As Date, xDate2 As Date
    On Error GoTo FIN
   
    Select Case ActiveSheet.Name
    Case "Feuil1"
        xDate = DateSerial([J2], [H2], 1)      ' début de mois
        xDate2 = DateSerial([J2], [H2] + 1, 0)    ' fin de mois
    Case "Feuil2"
        xDate = DateSerial([D2], [C2], 1)       ' début de mois
        xDate2 = DateSerial([D2], [C2] + 1, 0)  'fin de mois
    Case Else
        GoTo FIN
    End Select

    With Sheets("Feuil1")
        With .ListObjects("Tableau1").Range
            .AutoFilter
            .AutoFilter Field:=2, Criteria1:=">=" & Format(xDate, "mm/dd/yyyy"), Operator:=xlAnd, _
                        Criteria2:="<=" & Format(xDate2, "mm/dd/yyyy")
        End With
        .Range("A1") = "du 1 au " & Format(xDate2, "dd mmmm yyyy")
    End With
FIN:
    If Err.Number > 0 Then
        MsgBox "filtrage interrompu en raison de l'erreur suivante: " & vbCrLf & vbCrLf & Err.Description, vbExclamation, "Filtragedonnées"
    End If