smp <- read.csv2("tennis2.csv")
dim(smp)
names(smp)
str(smp)
smp$NbLigne[1]
for(i in smp$NbLigne){
  print(i)
}

Size <- nrow(smp)
print(Size)
# not working
# here is my problem
for(i in smp){
  print(i$NbLigne)
}

for(i in smp){
  print(i$NbLigne)
}