diff --git a/inst/DRomicsInterpreter-shiny/global.R b/inst/DRomicsInterpreter-shiny/global.R
index 5b28153..7b221ec 100644
--- a/inst/DRomicsInterpreter-shiny/global.R
+++ b/inst/DRomicsInterpreter-shiny/global.R
@@ -5,6 +5,7 @@ library(shinyWidgets, quietly = TRUE)
 library(DRomics, quietly = TRUE)
 library(sortable, quietly = TRUE)
 library(ggplot2, quietly = TRUE)
+library(plotly, quietly = TRUE)
 options(shiny.maxRequestSize=30*1024^2)
 
 texthelpnblevel <- "The maximal number of experimental levels is 10. The experimental levels can be for example different molecular levels (transcriptomics, metabolomis, ...), different experimental time points or different biological models (different species, different experimental settings), ..."
diff --git a/inst/DRomicsInterpreter-shiny/server.R b/inst/DRomicsInterpreter-shiny/server.R
index 87f4b17..b85512a 100644
--- a/inst/DRomicsInterpreter-shiny/server.R
+++ b/inst/DRomicsInterpreter-shiny/server.R
@@ -787,7 +787,7 @@ server <- function(input, output, session) {
     
     
     ############ curves plot ############
-    output$curvesplot <- renderPlot({
+    output$curvesplot <- renderPlotly({
         
         myextendedresforCurvesplot <- extendedresforCurvesplot()
         myfacetbycolumnsCurvesplot <- fnvaluecheckbox(facetbycolumnsCurvesplot(), myextendedresforCurvesplot$mypathclasslabel)
diff --git a/inst/DRomicsInterpreter-shiny/ui.R b/inst/DRomicsInterpreter-shiny/ui.R
index 671a724..848f3e3 100644
--- a/inst/DRomicsInterpreter-shiny/ui.R
+++ b/inst/DRomicsInterpreter-shiny/ui.R
@@ -418,7 +418,7 @@ ui <- fluidPage(
                             )
                         ),
                         fixedRow(
-                            plotOutput("curvesplot", width = "100%", height = "900px"),
+                            plotlyOutput("curvesplot", width = "100%", height = "900px"),
                             br(), br(),
                             div(align = "center", downloadButton("buttonDownloadCurvesplot", "Download Curves Plot", icon = icon("fas fa-download"))),
                         ),
diff --git a/share/todolist.md b/share/todolist.md
index 6935b9a..7ec7287 100644
--- a/share/todolist.md
+++ b/share/todolist.md
@@ -32,9 +32,8 @@ A FAIRE dans DRomicsInterpreter-shiny pour les fonctions sensitivityplot(), tren
 1. [X] Ajouter une fonction bmdfilter permettant de filtrer les sorties de DRomics notamment sur la base des résultats du bootstrap (par défaut on ne garde 
 que les items avec BMD et IC de la BMD définis, pour la BMD-zSD par défaut) - penser à faire de la prog défensive si les utilisateurs ne mettent pas le bootstrap, filtre possible sur autre chose.... (ML)
 1. [ ] Envisager la sortie de  figures en plotly, dans la vignette et dans l'appli shiny.
-Dans la vignette tant que ça ne fonctionne pas j'ai juste ajouté le code pour l'utilisateur (ML)
-A FAIRE dans appli shiny sur le curvesplot. Mais il se passe quoi quand on va la downloader. Elle sera
-dans quel état ???????????? (A)
+Dans la vignette tant que ça ne fonctionne pas j'ai juste ajouté le code pour l'utilisateur (ML).
+OK dans le curvesplot de l'appli shiny (plotly dans shiny + ggplot2 simple pour la figure téléchargée) (A).
 1. [X] Dans DRomicsInterpreter-shiny cocher par défaut la case pour ajouter BMD et BMR values (A)
 1. [X] changer les valeurs par défaut des arguments de curvesplot, avec les BMD ajoutées, et une transparence des courbes (ML)
 1. [X] Dans DRomics-shiny écrire explicitement comment prendre en compte les données proteomiques. (A)