Remplacer un texte en majuscule

Bonjour,

Je viens vers vous car un utilisateur me demande de l'aide pour Excel. Etant novice, j'ai d'abords fais des recherches sur internet mais je n'arrive pas à trouver la solution.

La demande est la suivante, un utilisateur souhaite remplacer dans une cellule, tous les mots en majuscule par le même mot en majuscule + gras.

Exemple:

6 à 8 feuilles de menthe, 1 demi citron VERT, 10 glaçons, 4 cl de rhum blanc.

Je voudrai que le mot vert reste en majuscule et qu'il soit en gras.

J'ai essayé plusieurs formules ou même la fonction Recherche/Remplacer mais rien y fait.

Je vous remercie par avance pour votre aide.

Alan

Bonjour,

Ci-dessous un code à tester ...

Sub MajusculeGras()
' Lettres en Majuscule ----> Majuscule et Gras
    Dim c As Range
    Dim i As Long

    For Each c In Selection
        For i = 1 To Len(c.Value)
            If Mid$(c.Value, i, 1) = UCase$(Mid$(c.Value, i, 1)) Then
                c.Characters(i, 1).Font.Bold = True
            End If
        Next i
    Next c
End Sub

J'espère que cela pourra t'aider