Sub enregistrement ()
Dim chemin As String, Fichier As String
Sheets("FACTURE").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\FACTURATION\clients2013_" & Range("E5").Text & Range("I3").Text & ".pdf" _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False
end Sub