Macro de sauvegarde

Bonjour,

je souhaite sauvegarder mon tableau Excel dans deux répertoire différant.
quant j'ajoute la variable NomDossier = "R:\" la sauvegarde se fait uniquement sur R:

ci dessous ma macro.

merci d'avance

Private Sub Workbook_BeforeClose(Cancel As Boolean)


'Déclaration des variables
Dim NomDossier As String
Dim NomFichier As String

'Affectation des variables
NomDossier = "F:\"
NomDossier = "R:\"
'Désactiver les messages d'alertes
Application.DisplayAlerts = False
'On créé le nom du fichier de sauvegarde (Date + Nom)
NomFichier = Format(Now, "dd-mm-yyyy hh\hmm\mss\s") & "_" & "formation Budjet Maison 2020.xlsm"
'On sauvegarde le fichier de backup
ActiveWorkbook.SaveCopyAs NomDossier & NomFichier
'On affiche un message de confirmation
MsgBox "Votre fichier de sauvegarde intitulé : formation Budjet Maison 2020.xlsm " & NomFichier & vbNewLine & _
"dans le dossier suivant : " & NomDossier, vbOKOnly + vbInformation, "CONFIRMATION"
'On quitte Excel
'Application.Quit