ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
ActiveWorkbook.Path & "\" & "Procés verval palan à chaîne N° " & (Range("E6")) & " rédigé le " & (Range("E12")) & " Appartenant au " & (Range(" E10 ")) & ".pdf" _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False