Bonjour, une solution un peu "tricky" : dta<-data.frame(CN=c(5,5,5,5,5,5,5,9,9,9,9,2,2,3,3,3,3,3,3,3),ID=c(3,3,3,3,2,1,2,3,4,4,4,2,1,5,5,5,5,6,5,3)) tmp<-with(dta,paste(CN,ID)) cpt_consec<-rle(tmp) cpt_consec_sup2<- which(cpt_consec$lengths >= 3) cpt_consec.cumsum <- cumsum(cpt_consec$leng...