Re-bonjour, Voici le bout de code que j'ai établi : testCorr <- function(nomFichier1 , nomFichier2 ,nomFichier3 ,type_image , donnees , NbVariables) { library(ade4) panel.cor <- function(echantillon1, echantillon2, digits=3, prefix="", cex.cor) { usr <- pa...