Dim monRange As Range Dim monComment As Comment Set monRange = Range("B1") ' Tente de récupérer le commentaire actuel Set monComment = monRange.Comment ' S'il n'y en a pas If monComment Is Nothing Then ' Ajoute un commentaire ----'----1----'----2----'----3----'---- monRange.AddComment Text:="VBFrance est vraiment formidable" ' Associe mon objet à ce commentaire Set monComment = monRange.Comment ' Bidouillmage du contenu ' Le mot "vraiment" qu'on veut mettre en gras commence au ' 14ème caractère et a une longueur de 8 caractères With monComment.Shape.TextFrame With .Characters(14, 8).Font .Bold = True .Name = "Arial Black" .Size = 20 .ColorIndex = 3 ' Rouge End With End With End If