attente d'instruction dans une macro

Chers amis du forum bonjour,

dans le code ci dessous, que dois-je ajouter pour que la macro attende que l'utilisateur enregistre le fichier "horaire1" sous un autre nom et dans un répertoire de son choix, que le fichier se ferme, et que la macro se poursuive sur le fichier.

ActiveSheet.Unprotect
Application.Goto Reference:="R6C41"
Selection.CurrentRegion.Select
Selection.Copy
Workbooks.Add Template:= _
"C:\Program Files\Microsoft Office\Modèles\Horaire.xlt"
Workbooks("Horaire1").Activate
Range("A1").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Range("A1").Select

Merci déjà de votre aide attentive.

Pierre