Bonjour Mikael, et merci pour ta réponse ! Effectivement, ta solution marche, même si je n'ai pas très bien compris comment... dta2 <- do.call("rbind", by(dta, dta[, "num_pat"], function (idta) { if (!all(is.na(idta[, "Commentaires"]))) { idta[, "Commentaires"...