Remplacer dans une plage de celllue, la formule par son résultat.

Bonjour, à tous.

J'ai besoin, pour un classeur, de remplacer par VBA (en colonnes A à J sur toutes les feuilles)
les formules par leur valeurs. c'est pour l'allèger et l'envoyer par mail.
J'ai trouvé ce code:
Sheets("BASE").Range("A1:J500").Value = Range("A1:J500").Value
ils efface les colonnes mais ne concerve pas leur valeurs.

Merci de votre aide.

Bonne fin de journée.