Peut on affecter un nom ou une couleur à un bouton dynamiquement

Sub Test()
Const vert& = 65280     'RGB(  0, 255,   0)
Const rose& = 13158655  'RGB(255, 200, 200)
Dim Ok As Boolean
  With ActiveSheet
    Ok = .Shapes("Rectangle 1").TextFrame.Characters.Text = "Valider"
    If Not Ok Then
      .Shapes("Rectangle 1").TextFrame.Characters.Text = "Valider"
      .Shapes("Rectangle 1").Fill.ForeColor.RGB = vert
    Else
      .Shapes("Rectangle 1").TextFrame.Characters.Text = "Annuler"
      .Shapes("Rectangle 1").Fill.ForeColor.RGB = rose
    End If
  End With
End Sub