diff --git a/modules/webapp/src/main/elm/Messages.elm b/modules/webapp/src/main/elm/Messages.elm
index 4029a11f..d7461326 100644
--- a/modules/webapp/src/main/elm/Messages.elm
+++ b/modules/webapp/src/main/elm/Messages.elm
@@ -162,7 +162,7 @@ fr tz =
     , login = Messages.Page.Login.fr
     , register = Messages.Page.Register.fr
     , newInvite = Messages.Page.NewInvite.fr
-    , upload = Messages.Page.Upload.gb
+    , upload = Messages.Page.Upload.fr
     , itemDetail = Messages.Page.ItemDetail.gb tz
     , queue = Messages.Page.Queue.gb tz
     , userSettings = Messages.Page.UserSettings.gb tz
diff --git a/modules/webapp/src/main/elm/Messages/Comp/UploadForm.elm b/modules/webapp/src/main/elm/Messages/Comp/UploadForm.elm
index 502aa1a2..ddc48261 100644
--- a/modules/webapp/src/main/elm/Messages/Comp/UploadForm.elm
+++ b/modules/webapp/src/main/elm/Messages/Comp/UploadForm.elm
@@ -5,7 +5,7 @@
 -}
 
 
-module Messages.Comp.UploadForm exposing (Texts, de, gb)
+module Messages.Comp.UploadForm exposing (Texts, de, gb, fr)
 
 import Data.Language exposing (Language)
 import Messages.Basics
@@ -96,3 +96,33 @@ de =
     , selectedFiles = "Ausgewählte Dateien"
     , languageLabel = Messages.Data.Language.de
     }
+
+
+fr : Texts
+fr =
+    { basics = Messages.Basics.fr
+    , dropzone = Messages.Comp.Dropzone.fr
+    , reset = "Reset"
+    , allFilesOneItem = "Tous les fichiers ne sont qu'un seul document"
+    , skipExistingFiles = "Ignorer les fichiers déjà présents dans docspell"
+    , language = "Langue"
+    , languageInfo =
+        "Utilisé pour l'extraction et l'analyse. Le langage par défaut"
+            ++ "du groupe est utilisé si rien n'est spécifié."
+    , uploadErrorMessage = "Erreurs lors du transfert des fichiers."
+    , successBox =
+        { allFilesUploaded = "Tous les transferts sont complétés."
+        , line1 =
+            "Les fichiers ont bien été envoyés"
+                ++ "Ils sont en cours de traitement.  Rendez-vous aux"
+        , itemsPage = "Documents"
+        , line2 = " plus tard où les fichiers arrivent. Où rendez-vous à la "
+        , processingPage = "File de traitement"
+        , line3 = " afin de voir l'état du traitement."
+        , resetLine1 = " Click "
+        , reset = "Reset"
+        , resetLine2 = " pour envoyer plus de fichier."
+        }
+    , selectedFiles = "Fichiers séléctionnés"
+    , languageLabel = Messages.Data.Language.fr
+    }
diff --git a/modules/webapp/src/main/elm/Messages/Page/Upload.elm b/modules/webapp/src/main/elm/Messages/Page/Upload.elm
index b694403b..f6020dec 100644
--- a/modules/webapp/src/main/elm/Messages/Page/Upload.elm
+++ b/modules/webapp/src/main/elm/Messages/Page/Upload.elm
@@ -9,6 +9,7 @@ module Messages.Page.Upload exposing
     ( Texts
     , de
     , gb
+    , fr
     )
 
 import Messages.Comp.UploadForm
@@ -29,3 +30,9 @@ de : Texts
 de =
     { uploadForm = Messages.Comp.UploadForm.de
     }
+
+
+fr : Texts
+fr =
+    { uploadForm = Messages.Comp.UploadForm.fr
+    }