La réponse de Firetox est bonne.

Dans le traitement "Déclarations globale de B" tu ecris, en première ligne
Procedure B( param_NumCham)

et c'est tout.
Param_NumCham devient une variable...