Mettre un milieu de cellule en gras

Bonjour a tous,

Après des recherches je ne trouve pas de réponse à ma question ou je ne comprend pas bien la façon d'y parvenir.

Je cherche a mettre en gras un texte qui se trouve au milieu de ma cellule mais d'une longueur variable.

un petit exemple :

Les tests exécutés du système Calibreurs XXXXXXXX (DGMXXXX) donnent lieu à la conclusion suivante :

et la partie a mettre en gras est Calibreurs XXXXXXXX (DGMXXXX)
les autres parties sont fixe donc on peut commencer a partir du caractère 29 et il reste 40 caractères

Merci de votre aide

Mika

Je sais qu'un fichier est mieux mais mon fichier est trop lourd

en voici un exemple

Mika51,

Si tu cherches bien à obtenir :

je te propose :

Sub mettre_en_gras()
    For i = 8 To 10
        With Range("B" & CStr(i))
            .Characters(Start:=30, Length:=(InStr(1, .Value, "donnent lieu")) - 30).Font.Bold = True
        End With
    Next
End Sub

Merci beaucoup

Est il possible d'écrire cela comme ça ?

Sheets("Feuil1").Range("B8").Characters(Start:=30, Length:=(InStr(1, .Value, "donnent lieu")) - 30).Font.Bold = True

J'ai réussi à l'integré comme je voulais

Merci de ton aide

Sheets("Feuil1").Range("B8").Characters(Start:=30, Length:=(InStr(1, Sheets("Feuil1").Range("B8").Value, "donnent lieu")) - 30).Font.Bold = True
End Sub