Dim Cell As Range
'Supprime les données existantes dans le ComboBox
Me.Champ23.Clear
'Boucle sur les cellules de la plage L2:L9232 pour alimenter le ComboBox
For Each Cell In Worksheets("Annuelles").Range("w2:w9232")
Me.Champ23 = Cell
'remplissage sans doublon
If Me.Champ23.ListIndex = -1 Then _
Me.Champ23.AddItem Cell
Next Cell