Macro impression PDF case sélectionnées

Bonjour à tous,

je cherche une macro avec un bouton pour imprimer en PDF les cases sélectionnées et enregistré sur le chemin I2, les PDF devrons être nommé avec le nom du benef et la date, exemple ci-joint, onglet trans :

sélection : B4:K28 et nom benef : I6 et date : I7

sélection : B32:K59 et nom benef : I34 et date : I35

sélection : N4:V28 et nom benef : U6 et date : U7, etc.

Merci pour votre aide,

Bonjour à tous,

j'ai essayé une macro, ci-dessous, mais je bloque sur la sélection!

Option Explicit

Sub imprim()
Dim nom$
With Feuil10
nom = .Cells(1, 2) & "\" & .Cells(3, 2) & " " & Format(.Cells(2, 2), "dd-mm-yyyy") & ".pdf"
.ExportAsFixedFormat Type:=xlTypePDF, Filename:=nom, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False
End With
MsgBox "Factura a fost salvata sub " & nom, , "PRINT TERMINAT"
End Sub

Edit modo : code entre balises SVP

Merci pour votre aide,