let rec _Traitement_Constr_Inconnu nomModule sonType liste_constr our_Hash_table =
  match liste_constr with
    [] -> ([],false)
  | ce_constr::liste_restante -> 
      let autre_restant, modification_restante = 
        _Traitement_Constr_Inconnu nomModule sonType
          liste_restante
          our_Hash_table
      in
      match ce_constr with
        Varia(identifiant, Inconnu->
          (try 
            let autre, modification = 
              _Attribution_Variable_Pointee nomModule 
                our_Hash_table 
                our_Hash_table
                (String.sub identifiant
                   0 
                   (String.index identifiant '.')) 
                (String.sub identifiant
                   ((String.index identifiant '.')+1) 
                   (String.length identifiant - (String.index identifiant '.')-1))
            in 
            ((Varia(identifiant, autre)::autre_restant), 
             (modification || modification_restante))
          with _ -> 
            let autre, modification = 
              _Modification_autre nomModule 
                identifiant 
                our_Hash_table
            in
            (match autre with
              (_, Inconnu-> 
                let nouveau, modif = 
                  (_Traitement_Enum sonType identifiant our_Hash_table)
                in
                ((Varia(nouveau)::autre_restant), 
                 (modif || modification_restante))
          | _ -> ((Varia(autre)::autre_restant), 
                  (modification || modification_restante))))
      | ce_param_constr -> 
          (ce_param_constr::autre_restant, modification_restante)