diff --git a/modules/webapp/src/main/elm/Messages.elm b/modules/webapp/src/main/elm/Messages.elm
index d7461326..d232c785 100644
--- a/modules/webapp/src/main/elm/Messages.elm
+++ b/modules/webapp/src/main/elm/Messages.elm
@@ -163,7 +163,7 @@ fr tz =
     , register = Messages.Page.Register.fr
     , newInvite = Messages.Page.NewInvite.fr
     , upload = Messages.Page.Upload.fr
-    , itemDetail = Messages.Page.ItemDetail.gb tz
+    , itemDetail = Messages.Page.ItemDetail.fr tz
     , queue = Messages.Page.Queue.gb tz
     , userSettings = Messages.Page.UserSettings.gb tz
     , manageData = Messages.Page.ManageData.gb tz
diff --git a/modules/webapp/src/main/elm/Messages/Comp/AddressForm.elm b/modules/webapp/src/main/elm/Messages/Comp/AddressForm.elm
index 0ad0a7a1..eec06455 100644
--- a/modules/webapp/src/main/elm/Messages/Comp/AddressForm.elm
+++ b/modules/webapp/src/main/elm/Messages/Comp/AddressForm.elm
@@ -9,6 +9,7 @@ module Messages.Comp.AddressForm exposing
     ( Texts
     , de
     , gb
+    , fr
     )
 
 
@@ -39,3 +40,13 @@ de =
     , city = "Ort"
     , country = "Land"
     }
+
+
+fr : Texts
+fr =
+    { selectCountry = "Choix pays"
+    , street = "rue"
+    , zipCode = "Code Postal"
+    , city = "Ville"
+    , country = "Pays"
+    }
diff --git a/modules/webapp/src/main/elm/Messages/Comp/AttachmentMeta.elm b/modules/webapp/src/main/elm/Messages/Comp/AttachmentMeta.elm
index a32b448a..4c4a882d 100644
--- a/modules/webapp/src/main/elm/Messages/Comp/AttachmentMeta.elm
+++ b/modules/webapp/src/main/elm/Messages/Comp/AttachmentMeta.elm
@@ -9,6 +9,7 @@ module Messages.Comp.AttachmentMeta exposing
     ( Texts
     , de
     , gb
+    , fr
     )
 
 import Data.TimeZone exposing (TimeZone)
@@ -70,3 +71,21 @@ de tz =
     , itemDueDate = "Fälligkeitsdatum"
     , formatDateShort = DF.formatDateShort Messages.UiLanguage.German tz
     }
+
+
+fr : TimeZone -> Texts
+fr tz =
+    { basics = Messages.Basics.fr
+    , httpError = Messages.Comp.HttpError.fr
+    , extractedMetadata = "Métadonnées extraites"
+    , content = "Contenu"
+    , labels = "Labels"
+    , proposals = "Propositions"
+    , correspondentOrg = "Organisation correspondante"
+    , correspondentPerson = "Personne correspondante"
+    , concerningPerson = "Personne concernée"
+    , concerningEquipment = "Equipment concerné"
+    , itemDate = "Date du document"
+    , itemDueDate = "Date d'échéance"
+    , formatDateShort = DF.formatDateShort Messages.UiLanguage.French tz
+    }
diff --git a/modules/webapp/src/main/elm/Messages/Comp/CustomFieldForm.elm b/modules/webapp/src/main/elm/Messages/Comp/CustomFieldForm.elm
index 8ea9bb31..3a7de989 100644
--- a/modules/webapp/src/main/elm/Messages/Comp/CustomFieldForm.elm
+++ b/modules/webapp/src/main/elm/Messages/Comp/CustomFieldForm.elm
@@ -9,6 +9,7 @@ module Messages.Comp.CustomFieldForm exposing
     ( Texts
     , de
     , gb
+    , fr
     )
 
 import Data.CustomFieldType exposing (CustomFieldType)
@@ -91,3 +92,31 @@ de =
     , fieldTypeRequired = "Ein Format ist erforderlich."
     , updateSuccessful = "Das Feld wurde gespeichert."
     }
+
+
+fr : Texts
+fr =
+    { basics = Messages.Basics.fr
+    , reallyDeleteField = "Confirmer la suppression de ce champs ?"
+    , fieldTypeLabel = Messages.Data.CustomFieldType.fr
+    , httpError = Messages.Comp.HttpError.fr
+    , createCustomField = "Créer un champs personnalisé."
+    , modifyTypeWarning =
+        "Le changement de format peut rendre certaines valeurs invisibles"
+            ++ " si elles ne respectent pas le nouveau format !"
+    , nameInfo =
+        "Le nom propre de ce champs. Cela doit être un identifiant "
+            ++ "valide et ne contenir ni espace ni charactères spéciaux."
+    , fieldFormat = "Format du champs"
+    , fieldFormatInfo =
+        "Un champs doit avoir un format. Les valeurs sont validées"
+            ++ " selon ce format."
+    , label = "Label"
+    , labelInfo =
+        "Label utilisateur de ce champs. Utilisé dans l'UI."
+            ++ "si absent, le nom est utilisé"
+    , deleteThisField = "Supprimer ce champs"
+    , fieldNameRequired = "Nom  requis."
+    , fieldTypeRequired = "Type requis."
+    , updateSuccessful = "Champs enregistré."
+    }
diff --git a/modules/webapp/src/main/elm/Messages/Comp/CustomFieldInput.elm b/modules/webapp/src/main/elm/Messages/Comp/CustomFieldInput.elm
index c04d1f3b..9ab1d86a 100644
--- a/modules/webapp/src/main/elm/Messages/Comp/CustomFieldInput.elm
+++ b/modules/webapp/src/main/elm/Messages/Comp/CustomFieldInput.elm
@@ -9,6 +9,7 @@ module Messages.Comp.CustomFieldInput exposing
     ( Texts
     , de
     , gb
+    , fr
     )
 
 
@@ -36,3 +37,12 @@ de =
     , errorNoAmount = "Kein Betrag angegeben"
     , errorNotANumber = \str -> "Keine Zahl: " ++ str
     }
+
+
+fr : Texts
+fr =
+    { errorNoValue = "remplir avec une valeur"
+    , errorNoNumber = "Pas de nombre donné"
+    , errorNoAmount = "Pas de montant donné"
+    , errorNotANumber = \str -> "Pas un nombre: " ++ str
+    }
diff --git a/modules/webapp/src/main/elm/Messages/Comp/CustomFieldMultiInput.elm b/modules/webapp/src/main/elm/Messages/Comp/CustomFieldMultiInput.elm
index c9bad557..f7cc899c 100644
--- a/modules/webapp/src/main/elm/Messages/Comp/CustomFieldMultiInput.elm
+++ b/modules/webapp/src/main/elm/Messages/Comp/CustomFieldMultiInput.elm
@@ -9,6 +9,7 @@ module Messages.Comp.CustomFieldMultiInput exposing
     ( Texts
     , de
     , gb
+    , fr
     )
 
 import Messages.Comp.CustomFieldInput
@@ -29,3 +30,9 @@ de : Texts
 de =
     { customFieldInput = Messages.Comp.CustomFieldInput.de
     }
+
+
+fr : Texts
+fr =
+    { customFieldInput = Messages.Comp.CustomFieldInput.fr
+    }
diff --git a/modules/webapp/src/main/elm/Messages/Comp/DetailEdit.elm b/modules/webapp/src/main/elm/Messages/Comp/DetailEdit.elm
index 0519c08a..3f2ccf85 100644
--- a/modules/webapp/src/main/elm/Messages/Comp/DetailEdit.elm
+++ b/modules/webapp/src/main/elm/Messages/Comp/DetailEdit.elm
@@ -9,6 +9,7 @@ module Messages.Comp.DetailEdit exposing
     ( Texts
     , de
     , gb
+    , fr
     )
 
 import Http
@@ -75,3 +76,22 @@ de =
     , addEquipmentHeader = "Ausstattung anlegen"
     , addCustomFieldHeader = "Benutzerfeld anlegen"
     }
+
+
+fr : Texts
+fr =
+    { basics = Messages.Basics.fr
+    , tagForm = Messages.Comp.TagForm.fr
+    , personForm = Messages.Comp.PersonForm.fr
+    , orgForm = Messages.Comp.OrgForm.fr
+    , equipmentForm = Messages.Comp.EquipmentForm.fr
+    , customFieldForm = Messages.Comp.CustomFieldForm.fr
+    , httpError = Messages.Comp.HttpError.fr
+    , submitSuccessful = "Enregistré"
+    , missingRequiredFields = "Veuillez compléter les champs requis."
+    , addTagHeader = "Ajouter un Tag"
+    , addPersonHeader = "Ajouter une personne"
+    , addOrgHeader = "Ajouter une organisation"
+    , addEquipmentHeader = "Ajouter un équipement"
+    , addCustomFieldHeader = "Ajouter un champs personnalisé"
+    }
diff --git a/modules/webapp/src/main/elm/Messages/Comp/EquipmentForm.elm b/modules/webapp/src/main/elm/Messages/Comp/EquipmentForm.elm
index b8a664d2..3a8949ae 100644
--- a/modules/webapp/src/main/elm/Messages/Comp/EquipmentForm.elm
+++ b/modules/webapp/src/main/elm/Messages/Comp/EquipmentForm.elm
@@ -9,6 +9,7 @@ module Messages.Comp.EquipmentForm exposing
     ( Texts
     , de
     , gb
+    , fr
     )
 
 import Data.EquipmentUse exposing (EquipmentUse)
@@ -46,3 +47,13 @@ de =
     , equipmentUseLabel = Messages.Data.EquipmentUse.de
     , notes = "Notizen"
     }
+
+fr : Texts
+fr =
+    { basics = Messages.Basics.fr
+    , use = "Rôle"
+    , useAsConcerning = "Equipement concerné"
+    , useNotSuggestions = "Ignorer dans les suggestions."
+    , equipmentUseLabel = Messages.Data.EquipmentUse.fr
+    , notes = "Notes"
+    }
diff --git a/modules/webapp/src/main/elm/Messages/Comp/ItemDetail.elm b/modules/webapp/src/main/elm/Messages/Comp/ItemDetail.elm
index 70f05386..5c3d76ab 100644
--- a/modules/webapp/src/main/elm/Messages/Comp/ItemDetail.elm
+++ b/modules/webapp/src/main/elm/Messages/Comp/ItemDetail.elm
@@ -9,6 +9,7 @@ module Messages.Comp.ItemDetail exposing
     ( Texts
     , de
     , gb
+    , fr
     )
 
 import Data.TimeZone exposing (TimeZone)
@@ -137,3 +138,41 @@ de tz =
     , selectItem = "Zur Auswahl hinzufügen"
     , deselectItem = "Aus Auswahl entfernen"
     }
+
+
+fr : TimeZone -> Texts
+fr tz =
+    { addFilesForm = Messages.Comp.ItemDetail.AddFilesForm.fr
+    , itemInfoHeader = Messages.Comp.ItemDetail.ItemInfoHeader.fr tz
+    , singleAttachment = Messages.Comp.ItemDetail.SingleAttachment.fr tz
+    , sentMails = Messages.Comp.SentMails.fr tz
+    , notes = Messages.Comp.ItemDetail.Notes.fr
+    , itemMail = Messages.Comp.ItemMail.fr
+    , detailEdit = Messages.Comp.DetailEdit.fr
+    , confirmModal = Messages.Comp.ItemDetail.ConfirmModal.fr
+    , httpError = Messages.Comp.HttpError.fr
+    , key = "Clé"
+    , backToSearchResults = "Retour aux résultat de recherche"
+    , previousItem = "Document précédent"
+    , nextItem = "Document suivant"
+    , sendMail = "Envoyer Mail"
+    , addMoreFiles = "Ajouter plus de fichier à ce document"
+    , confirmItemMetadata = "Confirmer  les metadonnées"
+    , confirm = "Confirmer"
+    , unconfirmItemMetadata = "Editer  les metadonnées"
+    , reprocessItem = "Retraiter le document"
+    , deleteThisItem = "Supprimer ce document"
+    , undeleteThisItem = "Restorer  ce document"
+    , sentEmails = "E-Mail envoyés"
+    , sendThisItemViaEmail = "Envoyer  ce document par E-Mail"
+    , itemId = "Item ID"
+    , createdOn = "Créé le"
+    , lastUpdateOn = "Dernière mise à jour le"
+    , sendingMailNow = "e-mail en cours d'envoi…"
+    , formatDateTime = DF.formatDateTimeLong Messages.UiLanguage.French tz
+    , mailSendSuccessful = "Mail envoyé."
+    , showQrCode = "Afficher l'URL en  QR code"
+    , close = "Fermer"
+    , selectItem = "Selectionner  ce document"
+    , deselectItem = "Déselectionner  ce document"
+    }
diff --git a/modules/webapp/src/main/elm/Messages/Comp/ItemDetail/ConfirmModal.elm b/modules/webapp/src/main/elm/Messages/Comp/ItemDetail/ConfirmModal.elm
index 915df0f6..2b3c9487 100644
--- a/modules/webapp/src/main/elm/Messages/Comp/ItemDetail/ConfirmModal.elm
+++ b/modules/webapp/src/main/elm/Messages/Comp/ItemDetail/ConfirmModal.elm
@@ -9,6 +9,7 @@ module Messages.Comp.ItemDetail.ConfirmModal exposing
     ( Texts
     , de
     , gb
+    , fr
     )
 
 import Messages.Basics
@@ -78,3 +79,31 @@ de =
     , confirmDeleteFile = "Diese Datei wirklich löschen?"
     , confirmDeleteAllFiles = "Die gewählten Dateien wirklich löschen?"
     }
+
+
+fr : Texts
+fr =
+    { basics = Messages.Basics.fr
+    , confirmReprocessItem =
+        \state ->
+            if state == "created" then
+                "Le retraitement du document peut affecter ses métadonnées,"
+                    ++ " car il n'a pas été confirmé. Continuer ?"
+
+            else
+                "Le retraitement du document n'affectera pas ses métadonnées,"
+                    ++ " car il a été confirmé. Continuer ?"
+    , confirmReprocessFile =
+        \state ->
+            if state == "created" then
+                "Le retraitement  de ce fichier peut affecter les métadonnées du document, "
+                    ++ " car il n'a pas été confirmé.  Continuer ?"
+
+            else
+                "Le retraitement  de ce fichier n'affectera pas les métadonnées du document,  "
+                    ++ " car il a été confirmé. Continuer ?"
+    , confirmDeleteItem =
+        "Confirmer la suppression du document ? Il pourra être récupéré via la corbeille pendant un temps."
+    , confirmDeleteFile = "Confirmer la suppresion de ce fichier ?"
+    , confirmDeleteAllFiles = "Confirmer la suppresion de tous ces fichiers ?"
+    }
diff --git a/modules/webapp/src/main/elm/Messages/Comp/ItemDetail/EditForm.elm b/modules/webapp/src/main/elm/Messages/Comp/ItemDetail/EditForm.elm
index cc7983b6..2758df7a 100644
--- a/modules/webapp/src/main/elm/Messages/Comp/ItemDetail/EditForm.elm
+++ b/modules/webapp/src/main/elm/Messages/Comp/ItemDetail/EditForm.elm
@@ -9,6 +9,7 @@ module Messages.Comp.ItemDetail.EditForm exposing
     ( Texts
     , de
     , gb
+    , fr
     )
 
 import Data.Direction exposing (Direction)
@@ -90,3 +91,27 @@ de tz =
     , formatDate = DF.formatDateLong Messages.UiLanguage.German tz
     , direction = Messages.Data.Direction.de
     }
+
+
+fr : TimeZone -> Texts
+fr tz =
+    { basics = Messages.Basics.fr
+    , customFieldInput = Messages.Comp.CustomFieldMultiInput.fr
+    , tagDropdown = Messages.Comp.TagDropdown.fr
+    , createNewCustomField = "Créer un nouveau champs personnalisé"
+    , chooseDirection = "Choisir un sens…"
+    , dueDateTab = "Date d'échéance"
+    , addNewOrg = "Ajouter une nouvelle organisation"
+    , editOrg = "Editer une organisation"
+    , chooseOrg = "Choisir une organisation"
+    , addNewCorrespondentPerson = "Ajouter un correspondant"
+    , editPerson = "Editer uncorrespondant"
+    , personOrgInfo = "Le correspondant n'appartient pas à l'organisation."
+    , addNewConcerningPerson = "Ajouter une personne concernée"
+    , addNewEquipment = "Ajouter un nouvel équipement"
+    , editEquipment = "Editer un équipement"
+    , suggestions = "Suggestions"
+    , noSuggestions = "Aucune suggestion"
+    , formatDate = DF.formatDateLong Messages.UiLanguage.English tz
+    , direction = Messages.Data.Direction.fr
+    }
diff --git a/modules/webapp/src/main/elm/Messages/Comp/ItemDetail/ItemInfoHeader.elm b/modules/webapp/src/main/elm/Messages/Comp/ItemDetail/ItemInfoHeader.elm
index 9dbc59b8..51f6b18f 100644
--- a/modules/webapp/src/main/elm/Messages/Comp/ItemDetail/ItemInfoHeader.elm
+++ b/modules/webapp/src/main/elm/Messages/Comp/ItemDetail/ItemInfoHeader.elm
@@ -9,6 +9,7 @@ module Messages.Comp.ItemDetail.ItemInfoHeader exposing
     ( Texts
     , de
     , gb
+    , fr
     )
 
 import Data.TimeZone exposing (TimeZone)
@@ -47,3 +48,14 @@ de tz =
     , new = "Neu"
     , formatDate = DF.formatDateLong Messages.UiLanguage.German tz
     }
+
+
+fr : TimeZone -> Texts
+fr tz =
+    { basics = Messages.Basics.fr
+    , itemDate = "Date du document"
+    , dueDate = "Date d'échéance"
+    , source = "Source"
+    , new = "Nouveau"
+    , formatDate = DF.formatDateLong Messages.UiLanguage.French tz
+    }
diff --git a/modules/webapp/src/main/elm/Messages/Comp/ItemDetail/Notes.elm b/modules/webapp/src/main/elm/Messages/Comp/ItemDetail/Notes.elm
index a7207660..4f1c6da8 100644
--- a/modules/webapp/src/main/elm/Messages/Comp/ItemDetail/Notes.elm
+++ b/modules/webapp/src/main/elm/Messages/Comp/ItemDetail/Notes.elm
@@ -9,6 +9,7 @@ module Messages.Comp.ItemDetail.Notes exposing
     ( Texts
     , de
     , gb
+    , fr
     )
 
 import Messages.Basics
@@ -38,3 +39,12 @@ de =
     , preview = "Vorschau"
     , supportsMarkdown = "Unterstützt Markdown"
     }
+
+
+fr : Texts
+fr =
+    { basics = Messages.Basics.fr
+    , notes = "Notes"
+    , preview = "Aperçu"
+    , supportsMarkdown = "Markdown supporté"
+    }
diff --git a/modules/webapp/src/main/elm/Messages/Comp/ItemDetail/SingleAttachment.elm b/modules/webapp/src/main/elm/Messages/Comp/ItemDetail/SingleAttachment.elm
index 64487867..db013a03 100644
--- a/modules/webapp/src/main/elm/Messages/Comp/ItemDetail/SingleAttachment.elm
+++ b/modules/webapp/src/main/elm/Messages/Comp/ItemDetail/SingleAttachment.elm
@@ -9,6 +9,7 @@ module Messages.Comp.ItemDetail.SingleAttachment exposing
     ( Texts
     , de
     , gb
+    , fr
     )
 
 import Data.TimeZone exposing (TimeZone)
@@ -76,3 +77,24 @@ de tz =
     , deleteAttachments = "Anhänge löschen"
     , showQrCode = "Link als QR Code anzeigen"
     }
+
+
+fr : TimeZone -> Texts
+fr tz =
+    { attachmentMeta = Messages.Comp.AttachmentMeta.fr tz
+    , confirmModal = Messages.Comp.ItemDetail.ConfirmModal.fr
+    , noName = "Sans nom"
+    , openFileInNewTab = "Ouvrir le fichier dans un nouvel onglet"
+    , downloadFile = "Télécharger le fichier"
+    , renameFile = "Renommer le fichier"
+    , downloadOriginalArchiveFile = "Télécharger l'archive original"
+    , originalFile = "Fichier original"
+    , renderPdfByBrowser = "Rendu des pdf pas le navigateur"
+    , viewExtractedData = "Voir les données extraites"
+    , reprocessFile = "Retraiter ce fichier"
+    , deleteThisFile = "Supprimer ce fichier"
+    , selectModeTitle = "Mode sélection"
+    , exitSelectMode = "Quitter le mode sélection"
+    , deleteAttachments = "Supprimer les pièces-jointes"
+    , showQrCode = "Afficher l'URL en QR code"
+    }
diff --git a/modules/webapp/src/main/elm/Messages/Comp/OrgForm.elm b/modules/webapp/src/main/elm/Messages/Comp/OrgForm.elm
index 920dc6ef..c036aef0 100644
--- a/modules/webapp/src/main/elm/Messages/Comp/OrgForm.elm
+++ b/modules/webapp/src/main/elm/Messages/Comp/OrgForm.elm
@@ -9,6 +9,7 @@ module Messages.Comp.OrgForm exposing
     ( Texts
     , de
     , gb
+    , fr
     )
 
 import Data.ContactType exposing (ContactType)
@@ -64,3 +65,19 @@ de =
     , contactTypeLabel = Messages.Data.ContactType.de
     , notes = "Notizen"
     }
+
+
+fr : Texts
+fr =
+    { basics = Messages.Basics.fr
+    , addressForm = Messages.Comp.AddressForm.fr
+    , orgUseLabel = Messages.Data.OrgUse.fr
+    , shortName = "Nom court"
+    , use = "Rôle"
+    , useAsCorrespondent = "Correspondant"
+    , dontUseForSuggestions = "Ignorer des suggestions."
+    , address = "Addresse"
+    , contacts = "Contacts"
+    , contactTypeLabel = Messages.Data.ContactType.fr
+    , notes = "Notes"
+    }
diff --git a/modules/webapp/src/main/elm/Messages/Comp/PersonForm.elm b/modules/webapp/src/main/elm/Messages/Comp/PersonForm.elm
index b1bf8d0a..87723224 100644
--- a/modules/webapp/src/main/elm/Messages/Comp/PersonForm.elm
+++ b/modules/webapp/src/main/elm/Messages/Comp/PersonForm.elm
@@ -9,6 +9,7 @@ module Messages.Comp.PersonForm exposing
     ( Texts
     , de
     , gb
+    , fr
     )
 
 import Data.ContactType exposing (ContactType)
@@ -70,3 +71,21 @@ de =
     , contactTypeLabel = Messages.Data.ContactType.de
     , notes = "Notizen"
     }
+
+
+fr : Texts
+fr =
+    { basics = Messages.Basics.fr
+    , addressForm = Messages.Comp.AddressForm.fr
+    , personUseLabel = Messages.Data.PersonUse.fr
+    , useOfPerson = "Rôle de cette personne"
+    , useAsConcerningOnly = "Concernée uniquement"
+    , useAsCorrespondentOnly = "Correspondante uniquement"
+    , useAsBoth = "Concernée et correspondante"
+    , dontUseForSuggestions = "ignorer des suggestions."
+    , chooseAnOrg = "Choisir une organisation"
+    , address = "Addresse"
+    , contacts = "Contacts"
+    , contactTypeLabel = Messages.Data.ContactType.fr
+    , notes = "Notes"
+    }
diff --git a/modules/webapp/src/main/elm/Messages/Comp/SentMails.elm b/modules/webapp/src/main/elm/Messages/Comp/SentMails.elm
index 34ecf026..9bc93a73 100644
--- a/modules/webapp/src/main/elm/Messages/Comp/SentMails.elm
+++ b/modules/webapp/src/main/elm/Messages/Comp/SentMails.elm
@@ -9,6 +9,7 @@ module Messages.Comp.SentMails exposing
     ( Texts
     , de
     , gb
+    , fr
     )
 
 import Data.TimeZone exposing (TimeZone)
@@ -49,3 +50,15 @@ de tz =
     , sender = "Absender"
     , formatDateTime = DF.formatDateTimeLong Messages.UiLanguage.German tz
     }
+
+
+fr : TimeZone -> Texts
+fr tz =
+    { from = "De"
+    , date = "Date"
+    , recipients = "Destinataires"
+    , subject = "Sujet"
+    , sent = "Envoyé"
+    , sender = "Expéditeur"
+    , formatDateTime = DF.formatDateTimeLong Messages.UiLanguage.French tz
+    }
diff --git a/modules/webapp/src/main/elm/Messages/Comp/TagForm.elm b/modules/webapp/src/main/elm/Messages/Comp/TagForm.elm
index 3efc8403..e82e5068 100644
--- a/modules/webapp/src/main/elm/Messages/Comp/TagForm.elm
+++ b/modules/webapp/src/main/elm/Messages/Comp/TagForm.elm
@@ -9,6 +9,7 @@ module Messages.Comp.TagForm exposing
     ( Texts
     , de
     , gb
+    , fr
     )
 
 import Messages.Basics
@@ -35,3 +36,11 @@ de =
     , selectDefineCategory = "Wähle oder erstelle eine Kategorie..."
     , category = "Kategorie"
     }
+
+
+fr : Texts
+fr =
+    { basics = Messages.Basics.fr
+    , selectDefineCategory = "Choisir ou définir une catégorie..."
+    , category = "Catégorie"
+    }
diff --git a/modules/webapp/src/main/elm/Messages/Data/ContactType.elm b/modules/webapp/src/main/elm/Messages/Data/ContactType.elm
index 68df4697..88b38396 100644
--- a/modules/webapp/src/main/elm/Messages/Data/ContactType.elm
+++ b/modules/webapp/src/main/elm/Messages/Data/ContactType.elm
@@ -8,6 +8,7 @@
 module Messages.Data.ContactType exposing
     ( de
     , gb
+    , fr
     )
 
 import Data.ContactType exposing (ContactType(..))
@@ -49,3 +50,22 @@ de ct =
 
         Website ->
             "Webseite"
+
+
+fr : ContactType -> String
+fr ct =
+    case ct of
+        Phone ->
+            "Téléphone"
+
+        Mobile ->
+            "Portable"
+
+        Fax ->
+            "Fax"
+
+        Email ->
+            "Email"
+
+        Website ->
+            "Web"
diff --git a/modules/webapp/src/main/elm/Messages/Data/CustomFieldType.elm b/modules/webapp/src/main/elm/Messages/Data/CustomFieldType.elm
index fc7ca06c..cbbcbdbb 100644
--- a/modules/webapp/src/main/elm/Messages/Data/CustomFieldType.elm
+++ b/modules/webapp/src/main/elm/Messages/Data/CustomFieldType.elm
@@ -8,6 +8,7 @@
 module Messages.Data.CustomFieldType exposing
     ( de
     , gb
+    , fr
     )
 
 import Data.CustomFieldType exposing (CustomFieldType(..))
@@ -49,3 +50,22 @@ de ft =
 
         Money ->
             "Geldbetrag"
+
+
+fr : CustomFieldType -> String
+fr ft =
+    case ft of
+        Text ->
+            "Texte"
+
+        Numeric ->
+            "Numerique"
+
+        Date ->
+            "Date"
+
+        Boolean ->
+            "Booléen"
+
+        Money ->
+            "Monétaire"
diff --git a/modules/webapp/src/main/elm/Messages/Data/Direction.elm b/modules/webapp/src/main/elm/Messages/Data/Direction.elm
index 3321440a..d8df0c2f 100644
--- a/modules/webapp/src/main/elm/Messages/Data/Direction.elm
+++ b/modules/webapp/src/main/elm/Messages/Data/Direction.elm
@@ -8,6 +8,7 @@
 module Messages.Data.Direction exposing
     ( de
     , gb
+    , fr
     )
 
 import Data.Direction exposing (Direction(..))
@@ -31,3 +32,13 @@ de dir =
 
         Outgoing ->
             "Ausgehend"
+
+
+fr : Direction -> String
+fr dir =
+    case dir of
+        Incoming ->
+            "Entrant"
+
+        Outgoing ->
+            "Sortant"
diff --git a/modules/webapp/src/main/elm/Messages/Data/EquipmentUse.elm b/modules/webapp/src/main/elm/Messages/Data/EquipmentUse.elm
index 349496cd..42b34d9b 100644
--- a/modules/webapp/src/main/elm/Messages/Data/EquipmentUse.elm
+++ b/modules/webapp/src/main/elm/Messages/Data/EquipmentUse.elm
@@ -8,6 +8,7 @@
 module Messages.Data.EquipmentUse exposing
     ( de
     , gb
+    , fr
     )
 
 import Data.EquipmentUse exposing (EquipmentUse(..))
@@ -31,3 +32,13 @@ de pu =
 
         Disabled ->
             "Deaktiviert"
+
+
+fr : EquipmentUse -> String
+fr pu =
+    case pu of
+        Concerning ->
+            "Concerné"
+
+        Disabled ->
+            "Inactif"
diff --git a/modules/webapp/src/main/elm/Messages/Data/OrgUse.elm b/modules/webapp/src/main/elm/Messages/Data/OrgUse.elm
index 40eeeb6d..09476498 100644
--- a/modules/webapp/src/main/elm/Messages/Data/OrgUse.elm
+++ b/modules/webapp/src/main/elm/Messages/Data/OrgUse.elm
@@ -8,6 +8,7 @@
 module Messages.Data.OrgUse exposing
     ( de
     , gb
+    , fr
     )
 
 import Data.OrgUse exposing (OrgUse(..))
@@ -31,3 +32,13 @@ de pu =
 
         Disabled ->
             "Deaktiviert"
+
+
+fr : OrgUse -> String
+fr pu =
+    case pu of
+        Correspondent ->
+            "Correspondant"
+
+        Disabled ->
+            "inactif"
diff --git a/modules/webapp/src/main/elm/Messages/Data/PersonUse.elm b/modules/webapp/src/main/elm/Messages/Data/PersonUse.elm
index d8e44b92..17129c76 100644
--- a/modules/webapp/src/main/elm/Messages/Data/PersonUse.elm
+++ b/modules/webapp/src/main/elm/Messages/Data/PersonUse.elm
@@ -8,6 +8,7 @@
 module Messages.Data.PersonUse exposing
     ( de
     , gb
+    , fr
     )
 
 import Data.PersonUse exposing (PersonUse(..))
@@ -43,3 +44,19 @@ de pu =
 
         Disabled ->
             "Deaktiviert"
+
+
+fr : PersonUse -> String
+fr pu =
+    case pu of
+        Correspondent ->
+            "Correspondante"
+
+        Concerning ->
+            "Concernée"
+
+        Both ->
+            "Les deux"
+
+        Disabled ->
+            "inactif"
diff --git a/modules/webapp/src/main/elm/Messages/Page/ItemDetail.elm b/modules/webapp/src/main/elm/Messages/Page/ItemDetail.elm
index 9edc3eda..fa24d5a2 100644
--- a/modules/webapp/src/main/elm/Messages/Page/ItemDetail.elm
+++ b/modules/webapp/src/main/elm/Messages/Page/ItemDetail.elm
@@ -9,6 +9,7 @@ module Messages.Page.ItemDetail exposing
     ( Texts
     , de
     , gb
+    , fr
     )
 
 import Data.TimeZone exposing (TimeZone)
@@ -40,3 +41,12 @@ de tz =
     , editMetadata = "Metadaten ändern"
     , collapseExpand = "Aus-/Einklappen"
     }
+
+
+fr : TimeZone -> Texts
+fr tz =
+    { itemDetail = Messages.Comp.ItemDetail.fr tz
+    , editForm = Messages.Comp.ItemDetail.EditForm.fr tz
+    , editMetadata = "Editer les métadonnées"
+    , collapseExpand = "Réduire/Etendre"
+    }