Changement partiel de fonte dans une cellule

Bonjour,

J'ai une phrase dans une cellule Excel et j'aimerais mettre en évidence un mot en le mettant en gras.

Ceci est possible à la main, mais il s'agit d'une longue liste, et j'aimerais automatiser.

Merci d'avance pour une aide.

Salut,

Un exemple Macro (penser a modifier la chaine a mettre en gras (ici toto)

Sub Macro1()
Dim textachercher
Dim longueurc As Long
Dim c As Range

'initialisation
textachercher = "toto"  ' a modifier
longueurc = Len(textachercher)

'Il faut faire une selection
For Each c In Selection
    debut = 1
    While InStr(debut, UCase(c.Value), UCase(textachercher)) <> 0
        mgras c, InStr(debut, UCase(c.Value), UCase(textachercher)), longueurc
        debut = InStr(debut, UCase(c.Value), UCase(textachercher)) + 1
    Wend
Next
End Sub
Function mgras(c As Range, debut As Long, longueur As Long)
With c.Characters(Start:=debut, Length:=longueur).Font
        .FontStyle = "Gras"
End With
End Function

Damien

Merci, cela fonctionne bien.

Mon seul problème a été de changer le "Gras" en "Bold".

En effet, je suis un très ancien utilisateur d'Excel qui est resté à la version anglaise, la française n'existant pas encore.

Encore un grand merci.