Sub testimpression()
Dim mois$, dossier$, nf$, dat As Long
mois = [A2] & " " & [A1]
If Not IsDate(mois) Or IsNumeric([A2]) Then Exit Sub
dossier = ThisWorkbook.Path & "\" & mois & "\" 'chemin à adapter au besoin
If Dir(dossier, vbDirectory) = "" Then MkDir dossier 'crée le dossier
Application.ScreenUpdating = False
With [A9].CurrentRegion
.Parent.PageSetup.PrintArea = .Address 'zone d'impression
nf = .Cells(2, 1).NumberFormat 'mémorise le format date
For dat = Application.EoMonth(CDate(mois), 0) To .Cells(2, 1) Step -1
.Columns(1).NumberFormat = "0"
.AutoFilter 1, dat 'filtre automatique
.Columns(1).NumberFormat = nf 'restitue le format date
.Parent.ExportAsFixedFormat xlTypePDF, dossier & Format(dat, "dd mmm yyyy") & ".pdf"
Next
End With
MsgBox "Les " & Day(Application.EoMonth(CDate(mois), 0)) & " fichiers pdf de " & mois & " ont été générés"
End Sub