msgbox

bonjour a tous
mon probleme avec ma boite de dialogue 'oui & non' pour 'oui' pas de probleme,en revanche quand je reponds 'non' mon fichier se ferme et je desirai qu'il reste ouvert donc si vous pouviez me donner un petit coup pousse, d'avance merci

si joint la programmation
Dim chemin: Dim r
'si cellule 50 vide affiche l'ecran de sauvegarde
If IsEmpty(Sheets('sommaire').Range('a50')) Then
chemincomplet = Application.GetSaveAsFilename(Sheets('sommaire').Range('f4'), 'FICHIER EXCEL,*.xls', , 'SAUVEGARDE...')
Position = InStrRev(chemincomplet, '\\')
cheminincomplet = Left(chemincomplet, Position)

With ActiveWorkbook
.Sheets('sommaire').Range('a50') = cheminincomplet
.Save
.Sheets('Pré audit 2004').Visible = xlVeryHidden
.Sheets('Pré audit 2005').Visible = x1VeryHidden
.Sheets('Marges par CA et type').Visible = x1VeryHidden
.Sheets('Procédure').Visible = xlVeryHidden
.Sheets('Lettre d'information').Visible = x1VeryHidden
.Sheets('Composition des ventes').Visible = x1VeryHidden
.Sheets('Composition des achats').Visible = x1VeryHidden
.Sheets('sommaire').Unprotect
.Sheets('sommaire').Shapes('bouton 14').Delete
.Sheets('sommaire').Range('f4').Select
End With

Selection.Validation.Delete
With ActiveWorkbook
.Sheets('sommaire').Protect Password:=''
Application.DisplayAlerts = False
.SaveAs cheminincomplet & ActiveWorkbook.Sheets('sommaire').Range('f4') & '.xls'
.Close
End With
Application.DisplayAlerts = True
Else
r = MsgBox('sauvegarde du fichier ? ', vbYesNo)
If r = vbYes Then



With ActiveWorkbook
.Sheets('Pré audit 2004').Visible = xlVeryHidden
.Sheets('Pré audit 2005').Visible = x1VeryHidden
.Sheets('Marges par CA et type').Visible = x1VeryHidden
.Sheets('Procédure').Visible = xlVeryHidden
.Sheets('Lettre d'information').Visible = x1VeryHidden
.Sheets('Composition des ventes').Visible = x1VeryHidden
.Sheets('Composition des achats').Visible = x1VeryHidden
.Sheets('sommaire').Unprotect
.Sheets('sommaire').Shapes('bouton 14').Delete
.Sheets('sommaire').Range('f4').Select
End With

Selection.Validation.Delete
ActiveWorkbook.Sheets('sommaire').Protect Password:=''
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Sheets('sommaire').Range('a50') & Range('f4') & '.xls'
ActiveWorkbook.Close
Application.DisplayAlerts = True

Else
Application.DisplayAlerts = False
ActiveWorkbook.Close
Application.DisplayAlerts = True
End If

End If

Application.Quit
End Sub