Sub Copier()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
On Error Resume Next
Sheets("Sauvegarde").Delete
With Feuil1 'CodeName de la feuille source
.Copy After:=Sheets(.Index) 'pour les dimensions des lignes et colonnes
ActiveSheet.Name = "Sauvegarde"
ActiveSheet.Cells.Clear 'RAZ
With .Range("B1:I" & .[A:I].Find("?*", , xlValues, , xlByRows, xlPrevious).Row)
ActiveSheet.Range(.Address) = .Value
.Copy
End With
ActiveSheet.[B1].PasteSpecial xlPasteFormats
ActiveSheet.[A1].Select
.Activate 'facultatif
End With
Application.CutCopyMode = 0
End Sub