Bonjour à tous

Bonjour Lucille, David

Si je peux me permettre, je pense qu'il faut modifier la fonction :

=SOMME(C3:F3)+GRANDE.VALEUR(C3:F3;1)/100+GRANDE.VALEUR(C3:F3;2)/1000+GRANDE.VALEUR(C3:F3;3)/10000+GRANDE.VALEUR(C3:F3;4)/100000+0,01/B3

en

=SOMME(C3:F3)+GRANDE.VALEUR(C3:F3;1)/100+GRANDE.VALEUR(C3:F3;2)/1000+GRANDE.VALEUR(C3:F3;3)/10000+GRANDE.VALEUR(C3:F3;4)/100000  -  0,01/B3

Le dernier signe "+"  (à la fin) doit être un "-"

Cordialement

Eric

Bonsoir à tous
Bonsoir Althéa

Si j'ai bien compris ton problème, je te propose une Sub que tu lanceras une fois que tu auras tout "saisi".

Il te suffit de sélectionner les cellules (qui doivent être dans la même colonne) à vérifier et à lancer la procédure.

Option Explicit

Sub Maj_Min()
Dim tbl As String
Dim tbl_cellule As Variant
Dim tablo()
Dim a As Integer, i As Integer
Dim ma_cell As String
Dim ma_col As String
Dim derlign As Integer
Dim premlign As Integer

If ActiveCell = "" Then MsgBox "Sélectionner les cellules à corriger": Exit Sub
tablo = Array("De", "Du", "Des", "Le", "La", "À", "En", "Au", "Bis", "Ter", "D'", "L'", "Aux", "Rue", "Avenue", "Boulevard", "Place", "Allée")
tbl = Selection.AddressLocal(RowAbsolute:=False, ColumnAbsolute:=False)

premlign = Trim(Val(Mid(Split(tbl, ":")(0), 2, Len(Split(tbl, ":")(0)) - 2 + 1)))
If InStr(tbl, ":") <> 0 Then derlign = Val(Mid(Split(tbl, ":")(1), 2, Len(Split(tbl, ":")(1)) - 2 + 1)) Else derlign = premlign
ma_col = Mid(Split(tbl, ":")(0), 1, Len(Split(tbl, ":")(0)) - Len(CStr(premlign)))

For i = premlign To derlign
    tbl_cellule = Split(Range(ma_col & i), " ")
    For a = 0 To UBound(tbl_cellule, 1)
        If Not IsError(Application.Match(tbl_cellule(a), tablo, 0)) = True Then
            ma_cell = ma_cell & LCase(tbl_cellule(a)) & " "
        Else
            If a = 0 Then
                ma_cell = tbl_cellule(a) & " "
            Else
                ma_cell = ma_cell & tbl_cellule(a) & " "
            End If
        End If
    Next a
    Range(ma_col & i) = Trim(ma_cell)
    ma_cell = ""
Next i

End Sub

Dis nous 

Eric

Bonsoir à tous

Bonsoir capi

Nous ne pouvons pas t'aider, il manque la plus grande partie du texte de ta question !!!

Repose ta question (dessous), et mets un fichier joint à la place de ton tableau/image

Eric

Bonjour Didier
Bonjour à Tous

Quel boulot !!! Bravo
Je le trouve plus agréable en positionnement, en recherche, et aussi en design.
Bon courage pour la fin de la nouvelle mouture.

Amicalement 
Frédéric

Bonjour à tous
Bonjour loco66

Tu poses la GRANDE question de la protection des codes.... Perso, je mets 1 seconde pour ouvrir et lire le code VBA d'un fichier excel, et cela sans logiciel exceptionnel. 
Sur le fond il est donc impossible de protéger du code VBA. La solution avec le code vigenère, ou autre, force la personne "indélicate" à prendre du temps pour comprendre et surtout pour récupérer le véritable code. 
N'oublie pas que cet "indélicat" pourra peut-être te donner ses "trucs" pour que tu te perfectionnes.

Peut-être auras-tu d'autres avis.

Eric

PS : Si tu a créé ces 2 applications au sein d'une société (sauf si c'est la tienne), il me semble que ton code ne t'appartient pas.