Deux boîtes de dial identiques !

Bonjour tout le monde,

Petit problème de boîte de dialogue.

EXPOSÉ:
J'ouvre une nouvelle feuille de calcul à partir d'un Modèle et je saisi les données. J'ouvre la boîte de dial. "Enregistrer sous" qui s'ouvre après celle qui me demande si je veux 'créer un nouvel enregistrement' ou 'continuer sans mise à jour' (afin d'exporter les données vers la base de données).
"Enregistrer sous" s'ouvre directement à l'"endroit" désiré par le code suivant:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim chemin As String
chemin = "c:\documents and settings\..."
ChDir chemin
Dim enregistrersous As Dialog
Set enregistrersous = Application.Dialogs(xlDialogSaveAs)
enregistrersous.Show
End Sub

Je saisi le nom du fichier à enregistrer et j'"Enregistre".
LÀ, une seconde boîte de dial. "Enregistrer sous" identique à la précédente s'ouvre et me propose d'enregistrer (à nouveau) mon fichier alors qu'il l'est déjà !?... Evidemment, si j'"Enregistre", il me signale que le fichier est déjà enregistré et me demande si je veux le remplacer ! J'"Annule" donc, la boîte se ferme et je peux fermer ma feuille (par la croix)...

QUESTIONS:
1/Est-il possible (si oui, comment faire) de supprimer l'apparition de cette 2ème boîte "Enregistrer sous" et que le fichier (la feuille) se ferme après l'enregistrement à l'aide de la 1ère boîte ??
2/Est-il possible (si oui, comment faire) d'incrémenter le nom du fichier (grisé) automatiquement par rapport au dernier fichier déjà enregistré ??
exemple: "Enregistrer sous" affiche les fichiers enregistrés précédemment
'fichier1'
'fichier2'
'fichier3'
et propose comme Nom du fichier: 'fichier' (grisé).
Le Nom du fichier que proposerait la boîte de dial. serait alors: 'fichier4'.

Merci à celui ou celle qui se penchera sur ce post (pas trop près, mauvais pour les yeux !...)

A vous lire avec plaisir,

Philippe