Sub convertirformules()
Dim MyRange As Range 
Dim MyCell As Range 
Select Case _
MsgBox ("Vous ne pouvez pas annuler cette action. " _
& "Enregistrer d'abord le classeur?", vbYesNoCancel,
"Alerte")
Case Is = vbYes 
ThisWorkbook.Save 
Case Is = vbCancel 
Exit Sub End Select
Set MyRange = Selection 
For Each MyCell In MyRange
If MyCell.HasFormula Then 
MyCell.Formula = MyCell.Value 
End If 
Next MyCell 
End Sub

Convertissez simplement les formules en valeurs. Lorsque vous exécutez cette macro, elle transforme rapidement les formules en valeurs absolues.