Mise en forme d'un unique mot dans une cellule

Bonjour à tous

je voudrais si c'est possible d'avoir une macro qui mettrais en forme un seul mot dans la phrase contenue dans une cellule.

exemple : "le cœur est un muscle, nous avons tous un cœur" la phrase et dans une cellule unique mais le mot cœur ce met en forme : Aptos Narrow; 11; rouge; gras

je remercie par avance toutes les personnes qui peuvent prendre un peu de temps pour voir si c'est possible.

Bonjour

Macro a tester

    Ouvrez Excel et appuyez sur ALT + F11 pour accéder à l’éditeur VBA.
    Cliquez sur Insertion puis Module pour créer un nouveau module.
    Copiez et collez le code suivant dans le module :

Sub MettreEnFormeMot()
    Dim cell As Range
    Dim mot As String
    Dim startPos As Long
    Dim finPos As Long

    ' Modifiez ici la cellule cible et le mot à mettre en forme
    Set cell = Range("A1") ' Changez A1 par la cellule contenant votre phrase
    mot = "cœur" ' Changez ce mot par celui que vous voulez mettre en forme

    ' Trouver la position du mot dans la cellule
    startPos = InStr(cell.Value, mot)

    If startPos > 0 Then
        finPos = startPos + Len(mot) - 1

        ' Appliquer la mise en forme
        With cell.Characters(startPos, Len(mot)).Font
            .Name = "Aptos Narrow"
            .Size = 11
            .Color = RGB(255, 0, 0) ' Rouge
            .Bold = True
        End With
    Else
        MsgBox "Le mot '" & mot & "' n'a pas été trouvé dans la cellule.", vbExclamation
    End If
End Sub

Bonjour

je vous remercie pour votre aide la macro fonctionne.

Bonne fin de journée