Sub Macro1()
Dim Chemin As String
Chemin = "C:\a_test\Robino\"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin & _
Sheets("feuil1").Range("E8").Value & Sheets("feuil1").Range("F8").Value & _
" - " & Sheets("feuil1").Range("D9").Value & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
False
End Sub