Sub Init()
TObservateurs = [TabObservateurs].Value
CBxObservateur.List = TObservateurs
'MàJListCBxObsverateur
Dim L As Long, D As New Dictionary
For L = 0 To LBxObservateurs.ListCount - 1: D(LBxObservateurs.List(L, 0)) = 1: Next L
Me.CBxObservateur.Clear
For L = 1 To UBound(TObservateurs)
If Not D.Exists(TObservateurs(L, 1)) Then CBxObservateur.AddItem TObservateurs(L, 1)
Next L
End Sub