Sub EnregisterCopieClasseurValeur()
Dim FF As Workbook, xsh As Worksheet
Application.ScreenUpdating = False
Sheets.Copy: Set FF = Workbooks(Workbooks.Count)
For Each xsh In FF.Worksheets
With xsh.Range(xsh.Range("a1"), xsh.Cells.SpecialCells(xlCellTypeLastCell))
.Copy: .PasteSpecial xlPasteValuesAndNumberFormats
End With
Next xsh
Application.ScreenUpdating = True: FF.Close
End Sub