Combobox sans doublons

Excel
2

Bonjour,

A tester sans conviction

'$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
'Alimente la combobox thème sans doublon$
'$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
  Dim tablo
  'Supprime les données existantes dans le ComboBox
  Usffiche_tableau.Cbxtheme.Clear
  Set f = Sheets("BDD_Oeuvres")
  Set mondico = CreateObject("Scripting.Dictionary")
  tablo = f.Range("K2:K" & f.[K65000].End(xlUp).Row)
    For i = LBound(tablo) To UBound(tablo)
      If tablo(i, 1) <> "" Then mondico(tablo(i, 1)) = ""
    Next i
  Cbxtheme.List = mondico.keys