Option Explicit
Sub Tst_2007()
Dim sNomFichierPDF As String
sNomFichierPDF = ThisWorkbook.Path & "\" & Feuil1.Range("H4")
Feuil1.ExportAsFixedFormat Type:=xlTypePDF, Filename:=sNomFichierPDF _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False
End Sub