Je te remercie pour le bout de code
Je m'excuse de la présentation de mon soucis
J'ai réussi a trouver une solution
.Range("L" & CEL.Row).Characters(InStr(1, Range("L" & CEL.Row).Value, "Référence"), Len("Référence")).Font.Bold = False
.Range("L" & CEL.Row).Characters(InStr(1, Range("L" & CEL.Row).Value, "Référence"), Len("Référence")).Font.Size = 8
Bien cordialement
edit mon coller n'a pas fonctionné du premier coup ;)