diff --git a/module2/exo5/challenger.org b/module2/exo5/challenger.org
index 2da4e890bf237029beec94fa121e1d53a4faa583..3ee614f9ce0bbc32fd27ba927ac750dca8baafe0 100644
--- a/module2/exo5/challenger.org
+++ b/module2/exo5/challenger.org
@@ -172,7 +172,7 @@ type de données nécessite un traitement particulier via la fonction
 #+begin_src R :results output graphics :file fig1bis.svg :exports both :width 4 :height 3 :session *R* 
 age_range=5
 df_grouped = df %>% mutate(Age=age_range*(floor(Age/age_range)+.5)) %>%
-                    group_by(Age) %>% summarize(Malade=sum(Malade),N=n()) %>% 
+                    group_by(Age) %>% summarise(Malade=sum(Malade),N=n()) %>% 
                     rowwise() %>% 
                     do(data.frame(Age=.$Age, binconf(.$Malade, .$N, alpha=0.05))) %>%
                     as.data.frame()