for (cd_mono in levels(factor(jdd_malaco$cd_monographie))) {
     export<-subset(jdd_malaco,jdd_malaco$cd_monographie==cd_mono)
     outfile <- paste("/Users/poleinvertebres/Documents/atlas_malaco/",cd_mono,".csv",sep="")
     write.csv2(file=outfile, export, fileEncoding = "UTF-8")
 }