Function SupCouleur(c As Range, coul&) As String
Application.Volatile
Dim i%
SupCouleur = c
For i = Len(c) To 1 Step -1
If c.Characters(i, 1).Font.ColorIndex = coul And Mid(SupCouleur, i, 1) <> vbLf Then _
SupCouleur = Left(SupCouleur, i - 1) & Mid(SupCouleur, i + 1)
Next
End Function