si ta feuille s'appelle BD
Sub generer_pdf()
nompdf = Environ("Temp") & "\" & Sheets("BD")
Sheets("BD").ExportAsFixedFormat Type:=xlTypePDF, Filename:=nompdf & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
End Sub
Pour le reste, si tu as des soucis, sépare bien les sujets et re-poste un nouveau sujet avec une maquette excel comprenant ce que tu as déjà fait !
Je considère ici que l'on traite l'affichage du pdf.