Function civilité1(chaine)
civil = ""
civ = Array("M ", "M. ", "Mr ", "Monsieur", "Maitre", "Me ", "Mme ", "Mlle ", "Mademoiselle", "Madame", "Sir ", "Son Altesse")
For n = LBound(civ) To UBound(civ)
If InStr(chaine, civ(n)) <> 0 Then civil = trim(civ(n))
Next n
If InStr(chaine, "Mle ") > 0 Then
civil = "Mlle"
End If
civilité1 = civil
End Function