listMod <- as.integer(unlist(strsplit(as.character(indModSel), "[.]")))
modelSel <- models_list[[listMod[1]]][[listMod[2]]]
modelSel$tableau <- tableauRecap
listMod <- as.integer(unlist(strsplit(as.character(indModSel), "[.]")))
modelSel <- models_list[[listMod[1]]][[listMod[2]]]
modelSel$tableau <- tableauRecap