Sub Macro1()
Dim chem As String 'déclare la variable NF (Nom de Fichier)
NF = ThisWorkbook.FullName 'définit la variable NF (nom complet avec chemin d'accès)
ThisWorkbook.SaveAs Mid(NF, 1, Len(NF) - 4) & ' copie.xls' 'enregistre sous 'non_origine copie.xls'
End Sub