Soucis de char

J'ai une macros qui doit me trouver des char definit a l'avance
Sub AD_char()
Dim c As Range
Dim caractere As Variant
Dim i, j As Byte

caractere = Array("&", "*", ",", ".", "@", "$", "#", "?", ":", "'", "!", ";", ")", "(", "[", "]", "-", "_", "+")

For Each c In Range("A2:A65000")
c.Interior.ColorIndex = -4142
For i = 1 To Len(c)
For j = 0 To UBound(caractere)
If Mid(c, i, 1) = caractere(j) Then
c.Interior.ColorIndex = 7


End If
Next j
Next i
Next c

End Sub
mais ca me detecte pas ce genre de char 7.72502E+11
aussi est-ce que il ya la possibilite d\avoir dans la feuille apres le filtre que le celules filtres.

Merci