Function Mots_Minuscules(txt$)
Dim s, i%, x$, j%
txt = Application.Trim(Replace(Replace(txt, "d'", ""), "l'", "") )'épuration
s = Split(txt)
For i = 0 To UBound(s)
x = s(i)
For j = 1 To Len(x)
If Mid(x, j, 1) = LCase(Mid(x, j, 1)) Then GoTo 1
Next j
s(i) = ""
1 Next i
Mots_Minuscules = Application.Trim(Join(s))
End Function
Function Mots_Majuscules(txt$)
Dim s, i%, x$, j%, d As Object
txt = Application.Trim(Replace(Replace(txt, "d'", ""), "l'", "") )'épuration
s = Split(txt)
For i = 0 To UBound(s)
x = s(i)
For j = 1 To Len(x)
If Mid(x, j, 1) = LCase(Mid(x, j...