Private Sub ComboBox9_Change()
With Me
'On remet le compteur à 0
.TextBox2.Value = 0
If .ComboBox9.Text = "" Then .LB.Clear: .LB.Enabled = False: Exit Sub
If d(.ComboBox9.Value) = "" Then MsgBox "Aucun postulant pour ce poste": .LB.Clear: .LB.Enabled = False: Exit Sub
.LB.Enabled = True
.LB.List = Application.Transpose(Split(d(.ComboBox9.Value), ":"))
End With
End Sub