diff --git a/Exo3/Question4.sce b/Exo3/Question4.sce
new file mode 100644
index 0000000..48298c2
--- /dev/null
+++ b/Exo3/Question4.sce
@@ -0,0 +1,37 @@
+//Afrique
+tauxNaissanceAfrique = mean(data(1:57, 4));
+tauxMortAfrique = mean(data(1:57, 5));
+tauxAccroissementAfrique = tauxNaissanceAfrique - tauxMortAfrique;
+
+//Amérique du Nord
+tauxNaissanceAmeriqueNord = mean(data(58:86, 4));
+tauxMortAmeriqueNord = mean(data(58:86, 5));
+tauxAccroissementAmeriqueNord = tauxNaissanceAmeriqueNord - tauxMortAmeriqueNord;
+
+//Amérique du Sud
+tauxNaissanceAmeriqueSud = mean(data(87:99, 4));
+tauxMortAmeriqueSud = mean(data(87:99, 5));
+tauxAccroissementAmeriqueSud = tauxNaissanceAmeriqueSud - tauxMortAmeriqueSud;
+
+//Asie
+tauxNaissanceAsie = mean(data(100:150, 4));
+tauxMortAsie = mean(data(100:150, 5));
+tauxAccroissementAsie = tauxNaissanceAsie - tauxMortAsie;
+
+//Europe
+tauxNaissanceEurope = mean(data(151:193, 4));
+tauxMortEurope = mean(data(151:193, 5));
+tauxAccroissementEurope = tauxNaissanceEurope - tauxMortEurope;
+
+//Océanie
+tauxNaissanceOceanie = mean(data(194:207, 4));
+tauxMortOceanie = mean(data(194:207, 5));
+tauxAccroissementOceanie = tauxNaissanceOceanie - tauxMortOceanie;
+
+
+//Graphe
+x = ["Afrique", "Amerique du Nord", "Amerique du Sud", "Asie", "Europe", "Oceanie"];
+y = [tauxAccroissementAfrique, tauxAccroissementAmeriqueNord, tauxAccroissementAmeriqueSud, tauxAccroissementAsie, tauxAccroissementEurope, tauxAccroissementOceanie];
+bar(y);
+xtitle("Taux d''accroissement moyen suivant le continent", "Continent", "Taux d''accroissement moyen");
+ytitle("Afrique", "Amerique du Nord", "Amerique du Sud", "Asie", "Europe", "Oceanie");