Public Sub rechercherouge()
Dim c As Range
Dim i As byte
dim le texte as string
For Each c In Range('a1:d9')
For i = 1 To Len(c)
If c.Characters(i, 1).Font.ColorIndex = 3 Then
letexte = letexte & c.Address(0, 0) & vbNewLine
Exit For
End If
Next i
Next c
MsgBox letexte, , 'Adresses des cellules rouges :'
End Sub