diff --git a/inst/ShinyApp/server.R b/inst/ShinyApp/server.R
index 3c66bf64ef6fff00a98dfe2e07234b6d1a02c514..2d0a9029a8435370f0044382dedf53a1d911b8cf 100644
--- a/inst/ShinyApp/server.R
+++ b/inst/ShinyApp/server.R
@@ -1053,7 +1053,13 @@ server <- function(input, output, session){
     if(is.null(out$run)) {} else {plot_traj(N = out$run$N, xlab = "year", ylab = "pop size")}
   }
 
-  output$graph_traj <- renderPlot({
+  output$title_traj_plot <- renderText({
+    if(input$run > 0){
+      "Graphique : Trajectoire démographique"
+    }
+  })
+
+  output$traj_plot <- renderPlot({
     plot_out_traj()
   })
   #####
diff --git a/inst/ShinyApp/ui.R b/inst/ShinyApp/ui.R
index 33a25003ee85458cd69875e18a756b0561ccfe2c..17ea4b316566d90baf8427570950b28b9497668b 100644
--- a/inst/ShinyApp/ui.R
+++ b/inst/ShinyApp/ui.R
@@ -477,8 +477,8 @@ rm(list = ls(all.names = TRUE))
                  plotOutput("impact_plot", width = "100%", height = "550px"),
                  hr(),
 
-                 tags$h4(textOutput("title_impact_plot"), align = "center"),
-                 plotOutput("graph_traj", width = "100%", height = "550px")
+                 tags$h4(textOutput("title_traj_plot"), align = "center"),
+                 plotOutput("traj_plot", width = "100%", height = "550px")
         ), # End tabPanel