Sub sauvegarde()
Dim WBk As Workbook
Dim Nom_SAUVEGARDE As String
Set WBk = ThisWorkbook
Nom_SAUVEGARDE = Left(WBk.FullName, InStr(WBk.FullName, ".") - 1) _
& "_SVG_" & Format(Date, "d-m-yy") & "_17h30" & ".xls"
Application.ScreenUpdating = False
Application.DisplayAlerts = False
WBk.Save
WBk.Sheets(1).Copy
With ActiveSheet
.UsedRange.Cells.Value = .UsedRange.Cells.Value
.SaveAs (Nom_SAUVEGARDE)
End With
ActiveWorkbook.Close
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub