Sub Sauvegarde()
Dim WBk As Workbook:Dim WBk_Copie As Workbook
Dim Nom_Sauvegarde As String:Dim i As Long
Set WBk = ThisWorkbook
Nom_Sauvegarde = _
"Sauvegarde du " & Format(Date, "yyyy-mm-dd") & ".xls"
Application.ScreenUpdating = False
WBk.Save
Workbooks.Add (1)
ActiveWorkbook.Sheets(1).Name = "temp"
WBk.Sheets.Copy After:=ActiveWorkbook.Sheets(Sheets.Count)
For i = 1 To ActiveWorkbook.Sheets.Count
With ActiveWorkbook.Sheets(i)
.UsedRange.Cells.Value = .UsedRange.Cells.Value
[COLOR=blue][B]End With[/B][/COLOR]
Next i
Application.DisplayAlerts = False
With ActiveWorkbook
.Worksheets("temp").Delete
.SaveAs (Nom_Sauvegarde)
.Close
End With
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub