Mettre en couleur une partie du texte d'une cellule

Merci pour les réponses
Je suis très en retard sur le sujet j'ai dû fermer ce dossier temporairement.

Voilà en réponse à via55
Je ne peux les supprimer.
Et ma question était pour rendre l'opération automatique.
J'ai d'ailleurs trouvé ma réponse et je vous la donne au cas ou quelqu'un d'autre chercherais quelque chose de semblable;

Sub Traitement()

Dim Plage As Range, Cel As Range
Dim LeMot As String, AdrDeb As String

Set Plage = Sheets("LISTE JOB").Range("A:A")
LeMot = "-X"
With Plage
Set Cel = .Find(LeMot, LookAt:=xlPart)
If Not Cel Is Nothing Then
AdrDeb = Cel.Address
Do
Modif Cel, LeMot
Set Cel = .FindNext(Cel)
Loop While Not Cel Is Nothing And AdrDeb <> Cel.Address
End If
End With
End Sub

Private Sub Modif(ByRef Cel As Range, LeMot)

Dim T As String
Dim Pos As Integer
T = Cel.Text
Do
Pos = InStr(Pos + 1, T, LeMot)
If Pos > 0 Then
With Cel.Characters(Start:=Pos, Length:=Len(LeMot)).Font
.FontStyle = "Gras"
.ColorIndex = 2 'blanc
End With
End If
Loop Until Pos = 0
End Sub

Voilà!

Bonjour,

Modifier couleur manuellement ou ........ ??????

Bonsoir

Pour le faire manuellement il faut dans aller dans chaque cellule, surligner dans la barre de formule le -X et sélectionner écriture blanche

De manière automatique il faut bâtir une macro pour le faire

Mais pourquoi tout simplement ne pas les supprimer ? par CTRL + H mettre -X dans Rechercher, rien dans Remplacer et Remplacer tout

Cdlmnt