Private Sub UserForm_Initialize()
ShowMode = vbModal
bEnableOptions = True
OptionCellule = hVariableSeule
Me.Caption = "Carnet d'adresse de :" & " " & Application.UserName
Me.CboCivilite.AddItem "Madame"
Me.CboCivilite.AddItem "Mademoiselle"
Me.CboCivilite.AddItem "Monsieur"
Me.CboCivilite.AddItem "Société"
SansX Me
End Sub