diff --git a/invivos/app.R b/invivos/app.R
index a9a2f47..85022d9 100755
--- a/invivos/app.R
+++ b/invivos/app.R
@@ -375,9 +375,15 @@ server <- function(input, output) {
       ) %>% relocate(Group, .after = DayPostInoc) %>% 
         relocate(Cage, .before = Animal) %>% 
         arrange(DayPostInoc, Animal, Side)
+      
+      if("Groups" %in% readxl::excel_sheets(input$file_analy$datapath)){
+        levels<-read.xlsx(input$file_analy$datapath, sheet = "Groups", colNames=F)[,1]
+        print(levels)
+        table$Group<-factor(table$Group, levels=levels)
+        table<-filter(table, !is.na(Group))
+      }
 
       analysis$taula<-table
-      print(table)
     }
   })
   output$cutoffUI<-renderUI({