Function NomPropre2(nom As String)
temp = Application.Proper(nom)
Tbl = Array("De-", "Du-", "Des-", "Le-", "Les-", "La-", "Sur-", "Et-", "En-", "Au-")
For i = 0 To UBound(Tbl)
temp = Replace(temp, Tbl(i), LCase(Tbl(i)))
Next i
NomPropre2 = temp
End Function