Sub enregistrement()
'
' enregistrement Macro
'
'
Numerofacture = Sheets("Facture").Range("c12")
ActiveWorkbook.SaveAs Filename:= _
"Macintosh HD:Users:damiencrepin:Documents:Facture" & Numerofacture & ".pdf", FileFormat:=xlPDF, _
PublishOption:=xlSheet
End Sub