Bonjour Comme l'afcm d'un tableau X de facteurs = afc du tableau disjonctif complet de X une solution pourrait etre library(ade4) #tab=table essai tab <- as.data.frame(matrix(ncol=6, nrow=100)) for (i in 1:6) { tab[,i] <- factor(sample(1:4,100, replace=T&...