nom <- read.table(file.choose(), header=T, sep=";", dec=",")