Sub MacroTest()
Dim Chemin As String
Dim NomFichier As String
Chemin = "D:\user\Mes documents\Seb WM\Docs Modèle\Nouvelle escale\"
NomFichier = Sheets("Proforma").Range("D18").Text & "_" & Format(Date, "ddmmyyyy")
ActiveSheet.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=Chemin & NomFichier & ".pdf", _
Quality:=xlQualityStandard, _
IncludeDocProperties:=False, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=True
End Sub