Barre d'icones

BOnjour !
je viens juste d'arriver dans ce forum et j'en suis ravie car j'ai rudement besoin de votre aide :

j'ai créé une barre d'icones avec 4 menus déroulants :
'Electrique, 'Graphique', 'Mécanique' et 'Process'
C'est parfait !
pour chaque mnu déroulant, je veux afficher les symbols correspondants à la catégorie avec
l'icone (.bmp) associée,
son nom (nom du fichier bmp)
et lorsqu'on clique dessus, je veux que le bmp soit dessiné sur la feuille

... et là, je m'acharne desesperement !!!
Voici la partie du code où je butte !!!


Set CBBS = CBB.Controls.Add(Type:=msoControlButton)
With CBBS
.Caption = objfile.Name
.Style = msoButtonCaption
.OnAction = 'Insertimage'
End With

sub Insertimage()
ActiveSheet.Pictures.Insert('R:\\Applications\\SIS\\Symbols\\Divers\\BASSINGC.bmp').Select'
end sub

Où dois-je mettre la macro ??*

Merci à tous ceux qui m'accorderont du temps car je perds patience !