Sub Enreg_Copie()
Dim oNom As String, oChemin As String, Quoi As String
'Gèle la date
Feuil1.Range("B6").Copy 'copie la cellule
Feuil1.Range("B6").PasteSpecial Paste:=xlPasteValues 'collage de la valeur
'Définition du fichier de sauvegarde : emplacement\nom
oNom = Feuil1.Range("D5").Value & ".xls" 'nom du fichier
oChemin = ThisWorkbook.Path & "\" ' chemin du répertoire du fichier contenant cette macro, à adapter éventuellement
'Ouvre la boite de dialogue enregistrer sous, avec fichier de sauvegarde par défaut
Application.Dialogs(xlDialogSaveAs).Show oChemin & oNom
End Sub