Autres VBA sauvegarde formule Excel 2007

Rebonjour,

Suite à mon précédent sujet sur la supression de formules, j'aimerai savoir si il était possible d'avoir un code qui sauvegarde les formules.
En gros, le code doit marcher comme ça :
Si j'exécute, je perds toutes les formules du classeur si il y avait des formules dans le classeur.
Si j'exécute, je récupère toutes les formules qui étaient présent avant la première exécution.

Ainsi de suite. Le code qu'on m'avait donné était :


Sub SansFormule()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
ws.UsedRange.Value = ws.UsedRange.Value
Next
End Sub


Pour tout supprimer.

Merci pour votre retour