Sub FdS_Dispo()
Dim i As Integer
[NomFdSD] = Sheets("CP-OM").[C5]
Dim onglet As Worksheet
Dim nom_PDF As String
Dim chemin_PDF As String
nom_PDF = "mon PDF.pdf"
chemin_PDF = "C:\Users\Desktop\" & nom_PDF
Set onglet = Worksheets("Fds Dispo")
onglet.Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=chemin_PDF, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=False
[NomFdSD] = Sheets("CP-OM").[C50]
nom_PDF = "mon PDF.pdf"
chemin_PDF = "C:\Users\Desktop\" & nom_PDF
Set onglet = Worksheets("Fds Dispo")
onglet.Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=chemin_PDF, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=False
End Sub