XL 2010 Remplir un combobox selon la selection d'un autre partir d'un tableau

Private Sub CB_Pièce_Change()
 If Flg_CB1 Then Exit Sub
    With Worksheets("Inventaire")
        NL = .Range("A:A").End(xlDown).Row
        TB_Magasin.Clear
        For j = 2 To NL
            If .Range("A" & j) = CB_Pièce Then
                TB_Magasin = .Range("L" & j)
                If TB_Magasin.ListIndex = -1 Then TB_Magasin.AddItem .Range("L" & j)
            End If
        Next j
    End With
End Sub