Word Xp 2002 Soucis dans le Code

[MuscatMimi]

Bonsoir a tout le Forum

Ca fait des jours que je galére avec mon probléme

J'ai un soucis dans le code ci-dessous

Je désire donc a la fin de cette procédure Fermer le Document créé
Exécuter les macros suivante

SupprimeToutesLesMacros
CommandBars("MBA").Delete

et que l'original reste Ouvert
************************

Actuellement ,L'original,dans cette procédure ce ferme tout seul.
Le Document Créé,reste ouvert

Si je désire fermer Le document créé,avec la croix Noire ,
La boite de dialogue Word
s'ouvre ,et si je clique sur "oui" ,,,la les macros s'exécute
et le document ce ferme

Comprends rien de rien

Voila mon code actuel

Sub Cmd4()
Dim rep As String
Dim odlg As Dialog
 
Application.ScreenUpdating = False  ' pour geler L 'affichage
 
rep = MsgBox("Enregistrer Votre Document", vbYesNoCancel + vbInformation, "Attention Enregistrement")
Select Case rep
 
Case vbYes
Set odlg = Application.Dialogs(wdDialogFileSaveAs)
 
With odlg
  .Name = ThisDocument.TextBox3 & " " & ThisDocument.TextBox21 & "  " & ThisDocument.TextBox2 & "  " & "Réf" & " " & ThisDocument.TextBox1
TextBox2 = Format(TextBox2, "dddd dd mmmm yyyy")
TextBox1 = Format(TextBox1, "0000_000")
End With
 
odlg.Show
 
Case vbNo 'Msg
Exit Sub
 
Case vbCancel
Exit Sub
End Select
 
SupprimeToutesLesMacros
CommandBars("MBA").Delete
ThisDocument.Save
ThisDocument.Close
Application.Quit
Application.ScreenUpdating = True  ' pour dégeler l'affichage
 
End Sub

Ou ai-je fais une erreur????,

Bonne soirée
Cordialement