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