Bonjour, cela aurait été plus simple avec un petit exemple reproductible donc j'en ai fait un, tu me diras si cela correspond à ce que tu as. df <- data.frame(id = paste(sample(x = seq(1,30,1),size = 30,replace = T)), eff = rep(1,30)) Et donc si j'ai bien compris, tu souhaites garder l'effectif à 1 ...