diff --git a/R/CreateInputsModel.R b/R/CreateInputsModel.R
index 4cec8bdbd5646b3455c5e647d95f03fc1d93d644..5889fcc4d71b93fceab8afbecae6dc5e7fb87bd5 100644
--- a/R/CreateInputsModel.R
+++ b/R/CreateInputsModel.R
@@ -14,15 +14,17 @@ CreateInputsModel.BasinsObs <- function(BasinsObs, ...) {
         Q <- BasinsObs$Q[, directInjectionNodes]
     }
 
-    airGRiwrm::CreateInputsModel(
-        BasinsObs$griwrm,
-        DatesR = BasinsObs$DatesR,
-        Precip = BasinsObs$P,
-        PotEvap = BasinsObs$E,
-        Qobs = Q,
-        TempMean = BasinsObs$Temp,
-        ZInputs = BasinsObs$HypsoData[50, ],
-        HypsoData = BasinsObs$HypsoData,
-        NLayers = 5
+    suppressMessages(
+        airGRiwrm::CreateInputsModel(
+            BasinsObs$griwrm,
+            DatesR = BasinsObs$DatesR,
+            Precip = BasinsObs$P,
+            PotEvap = BasinsObs$E,
+            Qobs = Q,
+            TempMean = BasinsObs$Temp,
+            ZInputs = BasinsObs$HypsoData[50, ],
+            HypsoData = BasinsObs$HypsoData,
+            NLayers = 5
+        )
     )
 }
diff --git a/bookdown/03-naturalisation.Rmd b/bookdown/03-naturalisation.Rmd
index b6d0d926a97a5df99228d2c80c74603d69f07607..f5b7888818496a121ba822d5db0e3d0e6f156afd 100644
--- a/bookdown/03-naturalisation.Rmd
+++ b/bookdown/03-naturalisation.Rmd
@@ -19,7 +19,7 @@ BasinsObs <- loadBasinsObs("BasinsObs_observations_day_1958-2019.RDS", cfg = cfg
 
 Et lançons la simulation avec les paramètres calés avec la présence des réservoirs
 
-```{r, message=FALSE}
+```{r}
 InputsModel <- CreateInputsModel(BasinsObs)
 OutputsModel <- RunModel(BasinsObs, "calibration_with_reservoirs.txt", InputsModel = InputsModel)
 ```