Sub EvaluerFormule()
Dim w As Worksheet, plage As Range, cel As Range, v
On Error Resume Next
For Each w In Worksheets
Err = 0
Set plage = w.Cells.SpecialCells(xlCellTypeFormulas)
If Err = 0 Then
For Each cel In plage
Err = 0: v = ""
v = Evaluate(cel.Formula)
If Err Or IsError(v) Then _
MsgBox "Erreur en " & w.Name & "!" & cel.Address(0, 0)
Next
End If
Next
End Sub