Sub copie()
Application.ScreenUpdating = False
Nb = ActiveWorkbook.Sheets.Count
For Sh = 1 To Nb
Sheets(Sh).Activate
ActiveSheet.UsedRange.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Next Sh
Application.ScreenUpdating = True
End Sub