Salut Pierre-jy !
D'abord mon "Pas clair, etc." ne concernait évidemment pas tes propos, je le précise au cas où..., mais la question du demandeur.
J'ai bien compris la question posée, et qu'elle était destinée à pouvoir faire varier le texte cherché... ce qui en soi ne présente aucune difficulté et peut se régler de diverses façons dans le contexte.
En filigrane, il s'agit de pouvoir traiter les cellules d'une plage non déterminée contenant ce texte... J'ai donc considéré que la question venant au premier plan était celle du traitement et qu'il convenait en priorité de faire le ménage de cet invraisemblable code, ensuite de quoi les questions connexes se révèleraient dans leur simplicité...
Pour plus de clarté, je reformule donc ma réponse pour la rendre plus générique :
Sub TonyX(plg A Range, tx As String)
Dim c As Range
tx = "*" & tx & "*"
Application.ScreenUpdating = False
plg.Font.Bold = False
For Each c In plg
If c Like tx Then c.Font.Bold = True
Next c
End Sub
Voilà ! Le traitement est isolé dans une procédure tout à fait autonome. Et il se trouve ramené à ce en quoi il est exprimé dans la question.
Cette procédure attend 2 arguments : la plage sur laquelle agir, le texte cherché. Leur caractère variable est présent par définition. Il ne reste plus à l'intéressé qu'à fournir les éléments du contexte dans lequel ces précisions doivent être apportées : à partir de quelle procédure existante (à modifier ou compléter en ce sens), ou quelle procédure à créer (lancée comment ? dans quelle situation ?)
Cordialement.