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)