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