Ça marche! Merci beaucoup Didier. :) Voici la boucle qui fonctionne : for (i in c(4:length(datQH[1,]))) { png(paste0(colnames(datQH)[i], ".jpg"), width=15, height=15, units="cm", res = 300, pointsize=20) plot<-polarFreq(datQH, cols=brewer.pal(n = 7, name = "Purples"), b...