Microsoft 365 SaveCopyAs vers plusieurs adresses de destination

Bonjour le forum,

J'ai ce code qui me permet de faire une copie de sauvegarde à une adresse précise.
Je voulais savoir comment faire pour que la même copie soit sauvegardée à deux endroits différents. Est-ce possible ?

Merci par avance.

SCN79


Private Sub Workbook_BeforeClose(Cancel As Boolean)

Dim NomDossier As String
Dim NomFichier As String

NomDossier = "C:\Users\XXX\Documents\SAUV FICHIER XXX\"
Application.DisplayAlerts = False
NomFichier = Format(Date, "dd.mm.yyyy") & "_" & Format(Time, "hh.mm") & "_XXX.xlsm"
ActiveWorkbook.SaveCopyAs NomDossier & NomFichier

End Sub