let rec _Remplir_Hash_Var nomModule liste_variable =
  match liste_variable with 
    [] -> []
  | cette_variable::liste_restante -> 
      match cette_variable with
        (id, sonType) -> 
          Autre(nomModule, id, sonType)
          ::_Remplir_Hash_Var nomModule liste_restante