Sub Saving()
Dim timebackup As String
Application.DisplayAlerts = False
timebackup = "_" & Day(Now()) & "_" & Month(Now()) & "_" & Year(Now()) & "_" & Hour(Now()) & "_" & Minute(Now()) & "_" & Second(Now())
Sheets(Array("Feuil1", "Feuil2", "Feuil3")).Copy
With Workbooks(Workbooks.Count)
.SaveAs "C:\Users\Desktop\File\Sauvegardes auto\Backup" & timebackup & ".xlsx", 51
.Close
End With
Application.DisplayAlerts = True
End Sub