diff --git a/R/CreateCalibOptions.R b/R/CreateCalibOptions.R
index 3e78a2b5d48a01754bdf90213cf251aa6c3e0064..57cae42cd27e22a452eb06ff8636924feb155aba 100644
--- a/R/CreateCalibOptions.R
+++ b/R/CreateCalibOptions.R
@@ -136,7 +136,6 @@ CreateCalibOptions <- function(FUN_MOD, FUN_CALIB = Calibration_Michel, FUN_TRAN
 
       StartParamList    <- NULL;
       StartParamDistrib <- TransfoParam(ParamIn=ParamT,Direction="TR",FUN_TRANSFO=FUN_TRANSFO);
-      StartParam        <- StartParamDistrib[2,];
     }
 
   ##check_StartParamList_and_StartParamDistrib__format
@@ -156,7 +155,6 @@ CreateCalibOptions <- function(FUN_MOD, FUN_CALIB = Calibration_Michel, FUN_TRAN
 
   ##Create_CalibOptions
     CalibOptions <- list(FixedParam=FixedParam,SearchRanges=SearchRanges);
-    if(!is.null(StartParam       )){ CalibOptions <- c(CalibOptions,list(StartParam=StartParam)); }
     if(!is.null(StartParamList   )){ CalibOptions <- c(CalibOptions,list(StartParamList=StartParamList)); }
     if(!is.null(StartParamDistrib)){ CalibOptions <- c(CalibOptions,list(StartParamDistrib=StartParamDistrib)); }
     class(CalibOptions) <- c("CalibOptions",ObjectClass);