'$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
'Alimente la combobox thème sans doublon$
'$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
Dim Cell As Range
' 'Supprime les données existantes dans le ComboBox
Usffiche_tableau.Cbxtheme.Clear
'Boucle sur les cellules de la plage pour
'alimenter le ComboBox
For Each Cell In Worksheets("BDD_Oeuvres").Range("K2:K10000")
Usffiche_tableau.Cbxtheme = Cell
'remplissage sans doublon
If Usffiche_tableau.Cbxtheme.ListIndex = -1 Then _
Usffiche_tableau.Cbxtheme.AddItem Cell
Next Cell