Bonjour,
Un exemple de macro qui pourrait faire le taf.
Option Explicit
Sub Macro1()
Dim table() As String, chaine As String
Dim i As Long, j As Long, k As Long
Dim x1 As Long, y1 As Long, x2 As Long, y2 As Long
Dim wS As Worksheet, c As Range
Set wS = Sheets("Feuil1")
Set c = wS.UsedRange
With c
y1 = .Rows(1).Row
y2 = .Rows.Count + .Row - 1
x1 = .Column
x2 = .Columns.Count + .Column - 1
End With
chaine = "\ / : * ? < > " & Chr(34)
table = Split(chaine)
For j = y1 To y2
For i = x1 To x2
For k = 0 To UBound(table)
If InStr(wS.Cells(j, i), table(k)) > 0 Then
wS.Cells(j, i).Select
Selection.Interior.Color = RGB(255, 0, 0)
Exit For
End If
Next k
Next i
Next j
End Sub