'------------------------------- civilité ---------------------------
Dim civilité As Variant
civilité = Array("M", "M où Mme", "Melle", "Monsieur", _
"Madame", "Monsieur où Madame", "Sarl", "Eurl")
For i = 0 To 7
ComboBox1.AddItem civilité(i)
Next i