VB : assigner à un bouton une macro paramétré

Bonjour,
Je fais actuellement de la programmation en Visual Basic pour une application tournant sous Excel
Executer une macro via un bouton est assez simple, et beaucoup de tutoriel l'explique :

    ActiveSheet.Buttons.Add(960, 30, 90, 20).Select
    Selection.Name = "nom_evenement"
    ActiveChart.Shapes("nom_evenement").Select
    Selection.Characters.Text = "evenement"
    Selection.AutoScaleFont = True
    Selection.OnAction = "procedure_sans_parametre"

Cependant, j'aimerai pouvoir assiger à un bouton l'exécution d'une macro paramétré.
J'ai par exemple une macro 'procédure_avec_parametre' :
Sub procedure_avec_parametre ( entier As Integer )
...
End Sub
Puis dans une fonction je dois appeler cette procédure avec un paramètre de 1 :
Le problème est que le code suivant ne marche pas. Comment faire ?

    ActiveSheet.Buttons.Add(960, 30, 90, 20).Select
    Selection.Name = "nom_autre_evenement"
    ActiveChart.Shapes("nom_autre_evenement").Select
    Selection.Characters.Text = "autre_evenement"
    Selection.AutoScaleFont = True
    Selection.OnAction = "procedure_avec_parametre(1)"

Merci de votre aide.