TextBox (Shapes) + format

Bonjour,

J'ai crée un textBox grâce à cette commande

ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, Range("Y1").Left + 5, 46, 300, 300).Select

J'ai réussi à mettre en gras la date et le mot Repos car ce sont les premiers caractères donc le code suivant :

With Selection.ShapeRange(1).TextFrame2.TextRange.Characters(1, 17)
        .ParagraphFormat.Alignment = msoAlignCenter
        .Font.Size = 16
        .Font.Bold = msoTrue
     End With

Maintenant j'aimerai que le mot TACHE soit aussi en gras mais je ne peux pas lui donner une place fixe (le mot n'est pas à la même place s'il y a 1, 2, 3, ... personne(s) en repos.

Merci de votre aide

Désolé, je viens juste de trouver.

Pour ceux qui auraient eu ce problème il faut faire comme ça

Selection.ShapeRange(1).TextFrame2.TextRange.Find("TACHE")