Renomer un bouton apres sa creation par une macro

Bonjour à tous,

J'ai fait une recherche dans le forum sur ce pb mais j'ai pas réussi à mettre une solution en pratique dans ma macro alors je repose le pb:

Voila, j'ai crée un bouton comme ca:
ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", Link:=False _
, DisplayAsIcon:=False, Left:=680, Top:=148.5, Width:=72, Height:=24) _
.Select

Je souhaiterai qu'il s'appelle "Copier" à la place de CommandButton1
J'ai essayé ca mais ca n'a pas marché ... le debugger a hurlé!

CommandButton1.Caption = "Cop 1" et aussi CommandButton1.Name = "Copier 2"

Comment faire????
Merci d'avance!