diff --git a/R/Calibration_Michel.R b/R/Calibration_Michel.R
index 1ad475be2811e1dd7e47042362adabe31044c103..462cd26185a8d7b89f69269b36e8a40389d0359e 100644
--- a/R/Calibration_Michel.R
+++ b/R/Calibration_Michel.R
@@ -404,7 +404,7 @@ Calibration_Michel <- function(InputsModel,
       listNameCrit <- OutputsCrit$CritCompo$MultiCritNames
       msgForm <- paste(sprintf("%.2f", listweights), listNameCrit, sep = " * ", collapse = ", ")
       msgForm <- unlist(strsplit(msgForm, split = ","))
-      msgFormSep <- rep(c(",", ",", ",\n\t\t    "), times = ceiling(length(msgForm)/3))[1: length(msgForm)]
+      msgFormSep <- rep(c(",", ",", ",\n\t\t    "), times = ceiling(length(msgForm)/3))[1:length(msgForm)]
       msgForm <- paste(msgForm, msgFormSep, sep = "", collapse = "")
       msgForm <- gsub("\\,\\\n\\\t\\\t    $|\\,$", "", msgForm)
       message("\tFormula: sum(", msgForm, ")")
diff --git a/R/ErrorCrit_KGE.R b/R/ErrorCrit_KGE.R
index a680dcb6bba866ac583d756aa02ebcd90da387dc..cd5d53f73d25212433fdbede8542afebb60a2de9 100644
--- a/R/ErrorCrit_KGE.R
+++ b/R/ErrorCrit_KGE.R
@@ -31,7 +31,7 @@ ErrorCrit_KGE <- function(InputsCrit, OutputsModel, warnings = TRUE, verbose = T
         Crit <- 0
       }
     } else {
-      Crit  <- Numer / (Deno1 * Deno2)
+      Crit <- Numer / (Deno1 * Deno2)
     }
     if (is.numeric(Crit) & is.finite(Crit)) {
       SubCritValues[1L] <- Crit
diff --git a/R/ErrorCrit_KGE2.R b/R/ErrorCrit_KGE2.R
index 1568d3de6b6c21816aab91aca36912999845e919..bba5632391f21b4efe406369a5f68f6569f9034d 100644
--- a/R/ErrorCrit_KGE2.R
+++ b/R/ErrorCrit_KGE2.R
@@ -5,7 +5,7 @@ ErrorCrit_KGE2 <- function(InputsCrit, OutputsModel, warnings = TRUE, verbose =
     stop("'OutputsModel' must be of class 'OutputsModel'")
   }
 
-  EC <- .ErrorCrit(InputsCrit = InputsCrit, Crit = "KGE2",  OutputsModel = OutputsModel, warnings = warnings)
+  EC <- .ErrorCrit(InputsCrit = InputsCrit, Crit = "KGE2", OutputsModel = OutputsModel, warnings = warnings)
 
   CritValue <- NA
   SubCritValues <- rep(NA, 3)
@@ -31,7 +31,7 @@ ErrorCrit_KGE2 <- function(InputsCrit, OutputsModel, warnings = TRUE, verbose =
         Crit <- 0
       }
     } else {
-      Crit  <- Numer / (Deno1 * Deno2)
+      Crit <- Numer / (Deno1 * Deno2)
     }
     if (is.numeric(Crit) & is.finite(Crit)) {
       SubCritValues[1L] <- Crit
diff --git a/R/ErrorCrit_NSE.R b/R/ErrorCrit_NSE.R
index ed2fb7e6a684b966032584921d17b44b06e9e920..0f66c2d3c71ba7094f256762e4dc54e90f83464b 100644
--- a/R/ErrorCrit_NSE.R
+++ b/R/ErrorCrit_NSE.R
@@ -5,7 +5,7 @@ ErrorCrit_NSE <- function(InputsCrit, OutputsModel, warnings = TRUE, verbose = T
     stop("'OutputsModel' must be of class 'OutputsModel'")
   }
 
-  EC <- .ErrorCrit(InputsCrit = InputsCrit, Crit = "NSE",  OutputsModel = OutputsModel, warnings = warnings)
+  EC <- .ErrorCrit(InputsCrit = InputsCrit, Crit = "NSE", OutputsModel = OutputsModel, warnings = warnings)
 
   CritValue <- NA
 
diff --git a/R/ErrorCrit_RMSE.R b/R/ErrorCrit_RMSE.R
index c66993bd42ee2a5e47f11d5e8cefd5dc631b31ab..845ff0a50f3bcbc6e8f75b8ec5846a07ef91df45 100644
--- a/R/ErrorCrit_RMSE.R
+++ b/R/ErrorCrit_RMSE.R
@@ -5,7 +5,7 @@ ErrorCrit_RMSE <- function(InputsCrit, OutputsModel, warnings = TRUE, verbose =
     stop("'OutputsModel' must be of class 'OutputsModel'")
   }
 
-  EC <- .ErrorCrit(InputsCrit = InputsCrit, Crit = "RMSE",  OutputsModel = OutputsModel, warnings = warnings)
+  EC <- .ErrorCrit(InputsCrit = InputsCrit, Crit = "RMSE", OutputsModel = OutputsModel, warnings = warnings)
 
   CritValue <- NA
 
diff --git a/R/UtilsCalibOptions.R b/R/UtilsCalibOptions.R
index 193aa7da5919e2fbee3955fb460c05d5c532184a..aa4aaf5f4eeb8ea4418fbd2f86b2d8b53e17efae 100644
--- a/R/UtilsCalibOptions.R
+++ b/R/UtilsCalibOptions.R
@@ -11,7 +11,7 @@
       FUN_GR <- TransfoParam_CemaNeige
     }
   } else {
-    # Fatal error if the TransfoParam function does not exist
+    # fatal error if the TransfoParam function does not exist
     FUN_GR <- match.fun(sprintf("TransfoParam_%s", FeatFUN_MOD$CodeModHydro))
   }