Sub pdf()
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:="D:\telechargements\eddy\" & ActiveSheet.[C5] & ".pdf", _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False
End Sub