Private Sub Gestionnaire_Change()
[AC1] = Gestionnaire
For Each Ctrl In Me.Controls
If TypeOf Ctrl Is MSForms.TextBox _
Then Ctrl = ""
Next
End Sub
Private Sub Gestionnaire1_Enter()
Gestionnaire1.List = Feuil2.Range("A2:A" & Feuil2.[A1000].End(3).Row).Value
End Sub