Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim nom$
nom = "La copie.xlsm" 'à adapter
If Me.Name = nom Then Exit Sub
Application.DisplayAlerts = False 'si le fichier a déjà été créé
On Error Resume Next 'si le fichier n'est pas ouvert
Workbooks(nom).Close False 'si le fichier est ouvert on le ferme
Me.SaveCopyAs Me.Path & "\" & nom
End Sub