Sub highlightErrors()
Dim rng As Range Dim i As Integer
For Each rng In ActiveSheet.UsedRange If WorksheetFunction.IsError(rng) Then 
i = i + 1 
rng.Style = "bad"
End If 
Next rng 
MsgBox _
"There are total " & i _
& " error(s) in this worksheet."
End Sub

Pour mettre en évidence et compter toutes les cellules dans lesquelles vous avez une erreur, ce code vous aidera. Il suffit de saisir ce code et il renverra un message avec le nombre de cellules d’erreur et mettra en surbrillance toutes les cellules.