contient les caractères...

Sub Bouton1_QuandClic()
Dim c As Range
Dim caractere As Variant
Dim i, j As Byte

caractere = Array('&', '*') '<==== à adapter

For Each c In Range('a1:d5') '<==== à adapter
&nbsp; &nbsp; c.Interior.ColorIndex = -4142
&nbsp; &nbsp; For i = 1 To Len(c)
&nbsp; &nbsp; &nbsp; &nbsp; For j = 0 To UBound(caractere)
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; If Mid(c, i, 1) = caractere(j) Then
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; c.Interior.ColorIndex = 6
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; End If
&nbsp; &nbsp; &nbsp; &nbsp; Next j
&nbsp; &nbsp; Next i
Next c
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;
End Sub

Cliquez pour agrandir...