Sub Renommer()
Dim FichierOriginal$, FichierCopie$
FichierOriginal = ThisWorkbook.Path & Application.PathSeparator & "Mon fichier.xlsx"
FichierCopie = ThisWorkbook.Path & Application.PathSeparator & "Mon beau fichier.xlsx"
Name FichierOriginal As FichierCopie
End Sub