Copie et Impression de lignes d'une autre feuille avec le choix d'une date

Sub xld_Choix_du_Mois()
'
' Macro3 Macro
'
Application.ScreenUpdating = False
Dim v_Mois As Variant
Dim l_Mois As Long

' Effacer tableau "Print Entrées"
With Range("A4").CurrentRegion
    If .Rows.Count > 1 Then .Offset(1).Resize(.Rows.Count - 1, .Columns.Count).ClearContents
End With

' Quatrième liste personnalisée contenant les mois sous forme "mmmm"
v_Mois = Application.GetCustomListContents(4)

' Index du mois choisi
l_Mois = Application.Match(Worksheets("Print Entrées").Range("C2").Text, v_Mois, 0)

Worksheets("Entrées").Range("A1").CurrentRegion.AutoFilter Field:=5, Criteria1:= _
        20 + l_Mois, Operator:=xlFilterDynamic

With Worksheets("Entrées").Range("_filterdatabase").SpecialCells(xlCellTypeVisible)
   .Copy Worksheets("Print Entrées").Range("A4")
End With
Application.Goto Range("A1"), scroll:=True
End Sub

'Dim d_Debut As Date
'Dim d_Fin As Date
'd_Debut = DateSerial(Year(Now), l_Mois, 1)
'd_Fin = DateSerial(Year(Now), l_Mois + 1, 1) - 1