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, 1)) Then
s(i) = ""
If i Then If s(i - 1) = "" Then s(i - 1) = Chr(1)
Exit For
End If
Next j, i
'---suppression des doublons---
txt = Application.Trim(Join(s))
Set d = CreateObject("Scripting.Dictionary")
s = Split(txt, Chr(1))
For i = 0 To UBound(s)
x = Trim(s(i))
If x <> "" Then If Not d.exists(x) Then d(x) = "": Mots_Majuscules = Mots_Majuscules & ", " & x
Next i
Mots_Majuscules = Mid(Mots_Majuscules, 3)
End Function