Bonjour,
une solution simple mais un peu lourde si tu as beaucoup de chose a taper = mettre en blanc la fin du texte
voici une petite macro qui fera le boulot sur une plage de cellule que tu auras selectionnée
Sub RaB()
'
For Each c In Selection
With c.Characters(Start:=4, Length:=7).Font
.Name = 'Arial'
.FontStyle = 'Normal'
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = 2
End With
Next
End Sub