C'est bon, j'ai enfin trouvé grâce à la fonction capture.output ! Voici ce que ça donne: anovaUnFacteur <- function(fichierImg,fichierCSV,type_image,donnees,VarTest,VarEffet) { anov1=lm(VarEffet~VarTest,donnees) ss=summary(anov1) capture.output(ss,file=fichierCSV, ap...