[RESOLU par BOISGONTIER] : alimenter combobox de deux façons differentes

Private Sub UserForm_Initialize()
  Me.ComboBox1.List = Range("D6:D" & [D65000].End(xlUp).Row).Value
  '---
  a = Range("h6:h" & [h65000].End(xlUp).Row).Value
  Set d = CreateObject("scripting.dictionary")
  For Each c In a
    d(c) = ""
  Next c
  Me.ComboBox2.List = d.keys
End Sub

Private Sub UserForm_Initialize()
  Me.ComboBox1.List = Range("D6:D" & [d65000].End(xlUp).Row).Value
End Sub

Private Sub CheckBox1_Click()
 If Me.CheckBox1 Then
    a = Range("d6:d" & [d65000].End(xlUp).Row).Value
    Set d = CreateObject("scripting.dictionary")
    For Each c In a
      d(c) = ""
    Next c
    Me.ComboBox1.List = d.keys
  Else
    Me.ComboBox1.List = Range("D6:D" & [d65000].End(xlUp).Row).Value
  End If
End Sub