XL 2019 chemin dossier

Bonjour,
j'ai trouvé cette macro qui fonctionne très bien et j'en remercie l'auteur. Cependant , dans cette macro l'enregistrement se fait dans le dossier du fichier et je voulais savoir si c'est possible que l'enregistrement puisse se faire dans un autre dossier.
par avance , merci

Sub enregistrerpdf()
Dim nompdf As String Dim dossier As String
dossier = ThisWorkbook.Path
nompdf = dossier & "\" & Sheets("Informations Agence").Range("B31") ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=nompdf & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
End Sub