diff --git a/R/TransfoParam_LLR.R b/R/TransfoParam_LLR.R
index eccadcbb7fe3ba4f5f3dac3514188d72da7da224..024e8cf595f905ae8d931e88a986cbac43250cab 100644
--- a/R/TransfoParam_LLR.R
+++ b/R/TransfoParam_LLR.R
@@ -18,17 +18,17 @@ TransfoParam_LLR <- function(ParamIn, Direction) {
     stop(sprintf("the Lag & Route model requires %i parameters", NParam))
   }
 
-
+  ## Transformation prévue pour de l'horaire.
   ## transformation
   if (Direction == "TR") {
     ParamOut <- ParamIn
     ParamOut[, 1] <- 20 * (ParamIn[, 1] + 10) / 20.0
-    ParamOut[, 2] <- 20 * (ParamIn[, 2] + 10) / 20.0
+    ParamOut[, 2] <- 2 * (ParamIn[, 2] + 10) / 20.0
   }
   if (Direction == "RT") {
     ParamOut <- ParamIn
     ParamOut[, 1] <- ParamIn[, 1] * 20.0 / 20 - 10
-    ParamOut[, 2] <- ParamIn[, 2] * 20.0 / 20 - 10
+    ParamOut[, 2] <- ParamIn[, 2] * 20.0 / 2 - 10
   }