Filtres sur Dates (Colonnes B ou C)

Sub zzzz()
Dim col%, deb#, fin#, L%, i%, j%
Dim rngfilt As Range, rng As Range
col = Asc(Range("H4")) - 64
deb = Range("G3")
fin = Range("G4")
L = 8
Range("C8:G26").ClearContents
With Feuil1
    .AutoFilterMode = False
    .Range("A1").AutoFilter Field:=col, Criteria1:=">=" & deb, Operator:=xlAnd, Criteria2:="<=" & fin
    Set rngfilt = .AutoFilter.Range
    With rngfilt
        On Error Resume Next
        Set rng = .Offset(1).Resize(.Rows.Count - 1, 13).SpecialCells(xlCellTypeVisible)
        On Error GoTo 0
        If Not rng Is Nothing Then
            With rng
                For i = 1 To rng.Areas.Count
                    For j = 1 To .Areas(i).Rows.Count
                        Cells(L, 3) = .Areas(i).Cells(j, 7)
                        Cells(L, 4) = .Areas(i).Cells(j, col)
                        Cells(L, 5) = .Areas(i).Cells(j, 11)
                        Cells(L, 6) = .Areas(i).Cells(j, 12)
                        Cells(L, 7) = .Areas(i).Cells(j, 13)
                        L = L + 1
                    Next
                Next
            End With
        Else
            MsgBox "rien à afficher"
        End If
    End With
    .AutoFilterMode = False
End With
End Sub

Sub Bouton5_Clic()
Dim col%, deb#, fin#, L%, i%, j%
Dim rngfilt As Range, rng As Range
col = Asc(Range("J5")) - 64
deb = Range("G3") - 1462 'modif ici
fin = Range("G5") - 1462 'modif ici
L = 8
Range("C8:J26").ClearContents
With Sheets("Listing")
    .AutoFilterMode = False
    .Range("A1").AutoFilter Field:=col, Criteria1:=">=" & deb, Operator:=xlAnd, Criteria2:="<=" & fin
    Set rngfilt = .AutoFilter.Range
    With rngfilt
        On Error Resume Next
        Set rng = .Offset(1).Resize(.Rows.Count - 1, 13).SpecialCells(xlCellTypeVisible)
        On Error GoTo 0
        If Not rng Is Nothing Then
            With rng
                For i = 1 To rng.Areas.Count
                    For j = 1 To .Areas(i).Rows.Count
                        Cells(L, 3) = .Areas(i).Cells(j, 7)
                        Cells(L, 6) = CDate(.Areas(i).Cells(j, col)) 'modif ici
                        Cells(L, 7) = .Areas(i).Cells(j, 11)
                        Cells(L, 8) = .Areas(i).Cells(j, 12)
                        Cells(L, 9) = .Areas(i).Cells(j, 13)
                        L = L + 1
                    Next
                Next
            End With
        Else
            MsgBox "Désolé! Il n'y a rien à afficher"
        End If
    End With
    .AutoFilterMode = False
End With
End Sub