Sub pdf()
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"H:\feuilles doublettes\" & Range("D11") & " " & Range("C8") & ".pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False
End Sub