Microsoft 365 Coloration de ma bulle

[Usine à gaz]

Bonsoir à toutes et à tous

Je butte sur la coloration de ma bulle et je n'arrive pas à trouver comment coder comme il faut.
Dans le fichier test joint, mon code :

Private Sub Worksheet_SelectionChange(ByVal R As Range)
If Not Intersect(R, Range("e9")) Is Nothing Then
With Shapes("bulle1_affectez")
    .TextFrame2.TextRange.Characters.Text = "OK - Métropole vérifié !" & Chr(13) & ">>>>>>  Affecter  =    clic  EN COL K    >>>>>>>>>"
    .Height = 45
        With Selection.Interior
        .Color = RGB(55, 86, 35)
        End With
End With
End If
End Sub

C'est la cellule cliquée qui est colorée en vert et pas ma bulle Grrr !

Pour que ce soit ma bulle qui soit colorée...
Pourriez me donner un p'tit coup de code ?

Un grand merci,

 

[mapomme]

Bonsoir @Usine à gaz ,

Peut-être :

Private Sub Worksheet_SelectionChange(ByVal R As Range)
   If Not Intersect(R, Range("e9")) Is Nothing Then
      With Shapes("bulle1_affectez")
          .TextFrame2.TextRange = "OK - Métropole vérifié !" & Chr(13) & ">>>>>>  Affecter  =    clic  EN COL K    >>>>>>>>>"
          .Height = 45
          .Fill.ForeColor.RGB = RGB(55, 86, 350)
      End With
   End If
End Sub

 

[Usine à gaz]

Bsr mapomme
Merci pour ce retour gagnant lol
Peut-être...Peut-être...
C'est exactement ça
Je te remercie,