ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Documents and Settings\Mes documents\" & [COLOR=red]Sheets("ta_feuille").Range("D5") & Sheets("ta_feuille").Range("A9") & [/COLOR]".pdf" _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=True