let rec _Remplir_Hash_Param nomModule liste_parametres rang =
match liste_parametres with
[] -> []
| ce_parametre::liste_restante ->
match ce_parametre with
(id, sonType) ->
Parametre(nomModule, id, sonType, rang)
::_Remplir_Hash_Param nomModule liste_restante (rang+1)