Affecter une macro unique à plusieurs bouton d'action

Bonjour,

hier on m'a aidé à faire la macro suivante, qui permet à mon rectangle de passer à la couleur verte ou rouge en affichant à l'intérieur un texte!

Je voudrai pouvoir affecter cette macro unique à plusieurs boutons d'action sans forcément être obligé de réaffecter une macro à une figure mais à plein de figures!

est ce possible?? N'hésitez pas à me dire si vous voulez plus de précisions! voici la macro actuelle:

Sub Rectangle1_Clic()
Dim resultat As String
resultat = InputBox("mettez vos initiales et la date ", "Initiale")
If resultat <> "" Then
ActiveSheet.Shapes("Rectangle 1").DrawingObject.Interior.Color = 5296274 'vert'a adapter nom forme et couleur
ActiveSheet.Shapes("Rectangle 1").TextFrame.Characters.Text = resultat
Else
ActiveSheet.Shapes("Rectangle 1").DrawingObject.Interior.Color = 255 'rouge
ActiveSheet.Shapes("Rectangle 1").TextFrame.Characters.Text = "Néant"
End If
End Sub

EDIT : Ajout des balises de code (la coloration syntaxique). Explications disponibles ici : ICI Merci d'y penser dans tes prochains messages.