Anne

Merci Michel,

Ta réponse me convient tout à fait, je crois, juste qu'il faut mettre les 2 lignes d'instructions :

"With Application.VBE.ActiveCodePane 'recherche procedure en cours
.GetSelection Lig, 0, 0, 0
NomProcedureActive = .CodeModule.ProcOfLine(Lig, 0)"
end with"

dans la procédure : ProcedureDeTest (dans mon cas dans toutes les procédures appelantes)

(et déclarer les variables comme variables publiques)
Anne