colorer un groupbox ou un checkbox

Bonjour,
je teste une macro toute simple. Création dans mon code vba , sur une feuille Excel d'un groupe qui contient une checkbox. Je leur donne un nom et leur donne une couleur.
Mais le nom n'apparait pas dans le debug et la couleur non plus. Qu'est-ce qui cloche dans mon code ?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
Sub Macrox()
'
    ActiveSheet.GroupBoxes.Add(66, 259.2, 78, 68.4).Select
    Selection.Name = "xx"
    Selection.Characters.Text = "Selection colonnes"
 
    ActiveSheet.CheckBoxes.Add(79.8, 275.4, 45, 17.4).Select
    Selection.Name = "b1"
    Selection.Characters.Text = "Mimo"
 
    ActiveSheet.Shapes.Range(Array("xx", "b1")).Select
    Selection.ShapeRange.Group.Select
 
 
ActiveSheet.Shapes("b1").Select
ActiveSheet.Shapes("b1").Fill.ForeColor.RGB = RGB(85, 142, 213)                   
ActiveSheet.Shapes("b1").Line.BackColor.RGB = RGB(198, 217, 241)
 
   For Each Sh In ActiveSheet.Shapes
        Debug.Print Sh.Name
    Next
 
End Sub

Pièce jointe 655417

Merci de vos retours.

Sub MacroShape() Dim sh As Object, rSh As Range, cb As CheckBox Set rSh = Range("D2:F8") Set sh = ActiveSheet.GroupBoxes.Add(rSh.Left, rSh.Top, rSh.Width, rSh.Height) sh.Name = "xx" sh.Characters.Text = "Selection colonnes" rSh.Interior.Color = 65535 Set rSh = rSh.Range("B2") Set cb = ActiveSheet.CheckBoxes.Add(rSh.Left, rSh.Top, rSh.Width, rSh.Height) cb.Name = "b1" cb.Characters.Text = "Mimo" For Each sh In ActiveSheet.Shapes Debug.Print sh.Name Next End Sub