Sub Archivage()
'ici soit
'ChemindAcces$ = ThisWorkbook.Path
'ou
ChemindAcces$ = "C:\Users\Chindou\Documents\Certificats Scolarités"
NomFichier$ = Worksheets("Renseignements").Range("H11").Value & ".pdf"
ChemindFichier$ = ChemindAcces$ & "\" & NomFichier$
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ChemindFichier$, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
End Sub