Sub Test()
Dim Reponse As Variant
'début de boucle
Do
ChDir "E:\DONNEES" 'définit le répertoire de la boite de dialogue
'Ouvre la boite de dialogue Sauve et récupére le résultat dans réponse
Reponse = Application.Dialogs(xlDialogSaveAs).Show
If Reponse = vbFalse Then MsgBox "Merci de procéder à l'enregistrer sous comme demandé"
'Tourne jusqu'à réponse vrai
Loop Until Reponse = vbTrue
MsgBox "Le traitement du script continu avec le fichier "
End Sub