Supprimer le texte en couleur

If Trim(C.Value) Like "#*" Then C.Font.Bold = True
ou éventuellement ceci
If IsNumeric(Left(Trim(C.Value), 1)) Then C.Font.Bold = True

Sub Effacer_les_Caracteres_en_Couleur()
Dim C As Range, n As Integer
Application.ScreenUpdating = False
With Sheets("Feuil1")
  For Each C In .Range("A1:A" & .Range("A65536").End(xlUp).Row) ' pour chaque cellule
   If C.Value <> "" Then ' si valeur non vide
     If IsNumeric(Left(C.Value, 1)) Then C.Font.Bold = True
     For n = Len(C.Value) To 1 Step -1 ' pour chaque caractère du texte
       If C.Characters(Start:=n, Length:=1).Font.ColorIndex <> 1 Then 'si différent de noir
         C.Characters(Start:=n, Length:=1).Delete 'on efface le caractère
       End If
     Next n 'caractere suivant
   End If
  Next C
End With
Application.ScreenUpdating = True
End Sub