diff --git a/R/project/ecow_calculations.R b/R/project/ecow_calculations.R
index ee9a6f9..b002074 100755
--- a/R/project/ecow_calculations.R
+++ b/R/project/ecow_calculations.R
@@ -54,7 +54,7 @@ calcul_ecow_by_chep <- function(cheptel, step = 3) {
   ###################################################################################################################
   ####################################     Calcul ecow pour les vaches       ########################################
   ###################################################################################################################
-  message("Début partie vaches : ", length(vaches), " vaches à traiter.")
+  message("Début partie vaches : ", nrow(vaches), " vaches à traiter.")
   
   # Ajout info donneuses
   donneuses <- cheptel_ecow$donneuses