Sauvegarde Document Word dans Dossier Sauvagarde du même Dossier que le Fichier

[MuscatMimi]

Bonjour a tout le forum

Je galére depuis qq heures ,car je n'arrive pas a créer une sauvegarde de mon document Word dans le Dossier "Sauvegarde"
qui ce trouve dans le Dossier de mon Document Word

J'ai ce code ,mais il me créé bien ma sauvegarde de mon document Word dans le Dossier "Sauvegarde",mais en plus il me créé un Dossier Vide
"Doc1" dans ce même dossier
je vois pas ou est mon erreur

Sub SauvDocument()
Dim Nom As String, Chemin As String, Rep As String
Nom = "Doc1"
Chemin = "Sauvegarde\"
Rep = ActiveDocument.Path & "\" & Chemin
If Dir(Rep & Nom) = "" Then MkDir Rep & Nom
Fichier = Rep & "\" & Trim(Nom) & ".Doc"
If Dir(Fichier) <> "" Then
MsgBox "le fichier existe déjà !"
Exit Sub
End If
ActiveDocument.SaveAs Rep & Nom
End Sub

merci de votre aide par avance

Cordialement