Sub EnregistreFichier() 'utilise la fenêtre "enregistrer sous" et permet de mofifier le répertoire et le nom avant enregistrement
Dim Chemin As String, Fichier As String
Chemin = ThisWorkbook.Path
Fichier = Range("D6")
With Application.FileDialog(msoFileDialogSaveAs)
.InitialFileName = Chemin & "\" & Fichier
.Show
End With
End Sub