Bonjour, Sinon tu peux faire comme ceci : #un jeu de données test dta <- as.data.frame(matrix(rnorm(1e3), 100)) dta[] <- lapply(dta, function(x) ifelse(x>2.2, NA, x)) f_summary <- function(dta) { res <- rbind(sapply(dta, fivenum), colMeans(dta, na.rm = T), colSums(is.na(dta)))[c(1:3, 6, 4:5,7),] col...