Bonjour Abdu,
Normalement, en faisant clic droit, il y a un menu avec une ligne Affecter à une macro. Si tu cliques dessus, tu peux voir la macro affectée ou lui en attribuer une autre.
Sinon, voici un essai avec ce code :
sub quelmacro()
redim t(1 to activesheet.shapes.count)
for each sh in activesheet.shapes
n = n + 1
t(n) = sh.name & iif(sh.onaction = "", " n'a pas de macro", " a la macro : " & sh.onaction)
next sh
msgbox join(t, chr(10))
end sub
Cdlt,