Transfert fichier excel sans formule

Sub The_Formulas_Eradicator()
Dim WS As Worksheet
Dim WSBase As Worksheet
Application.ScreenUpdating = False

Set WSBase = ActiveSheet

For Each WS In ActiveWorkbook.Worksheets
    With WS
        .Cells.Copy
                .Activate
            With .Range('A1')
                .PasteSpecial Paste:=xlValues
                .Select
            End With
    End With
Next WS

WSBase.Activate

With Application
    .ScreenUpdating = False
    .CutCopyMode = False
End With
End Sub

Cliquez pour agrandir...