bonjour Clarck
si tu souhaites que ta variable ( ton parametre ) soit utilisable dans l'ensemble du classeur , il faut remplacer "Dim p_nom As String" par "Public p_nom As String" et la placer tout en haut au dessus de la premiere procedure . ce n'est pas la peine d'ajouter "p_nom" en fin de la ligne Application.run
'dans un module
Public p_nom As String
Procédure Afficher_Nom()
p_nom = "Jean"
Application.Run Sheets("Activite").CodeName & ".CommandButton1_Click"
fin Procédure
'dans la feuille "Activite"
Procédure CommandButton1_Click
MsgBox p_nom
fin Procédure
bonne soirée
MichelXld