Public Function TOTAL(A, B)
TOTAL = A + B
End Function
Sub Ecraser()
Dim t As Long
t = 0
On Error Resume Next
t = Cells.Find(What:="=TOTAL", After:=ActiveCell, LookIn:=xlFormulas2, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Row
On Error GoTo 0
Do While t > 0
Cells.Find(What:="=TOTAL", After:=ActiveCell, LookIn:=xlFormulas2, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Select
ActiveCell.Copy
ActiveCell.PasteSpecial Paste:=xlPasteValues
t = 0
On Error Resume Next
t = Cells.Find(What:="=TOTAL", After:=ActiveCell, LookIn:=xlFormulas2, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Row
On Error GoTo 0
Loop
End Sub