Dim NomFichier As String
NomFichier = Range("A1")
ChDir "C:\Users\pc pascal\Dropbox\Documents Pascal\dossier accident du travail"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\pc pascal\Dropbox\Documents Pascal\dossier accident du travail\ & NomFichier .pdf" _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False