Sub Macro2()
Sheets("SUIVI").Activate
Workbooks.Open ("C:\EPI\Backup\backup.xlsx")
Sheets("SUIVI").Select
Application.DisplayAlerts = False
ActiveWindow.SelectedSheets.Delete
Application.DisplayAlerts = True
Workbooks("EPI-2-2.xlsm").Activate
Sheets("SUIVI").Visible = xlSheetVisible
Sheets("SUIVI").Copy After:=Workbooks("backup.xlsx").Sheets(1)
Workbooks("backup.xlsx").Activate
Sheets("SUIVI").Visible = xlSheetVisible
ActiveWorkbook.save
ActiveWorkbook.Close
End Sub