Sub enregistrement()
Dim x$
With Sheets("Facturier")
x = "Facture_" & Split(.Cells(18, 1), "/")(0) & "-" & Split(.Cells(18, 1), "/")(1) & " " & .Range("D10") & ".pdf"
.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\EHMSARR\Documents\SAVE\" & x _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, from:=1, to:=1, OpenAfterPublish:=False
End With
End Sub