Sub SearchArt()

    Dim LastRow As Long
    Dim sd As Variant
    
    Set Sh_stock = ThisWorkbook.Worksheets("$Stock")
    Set StockObj = Sh_stock.ListObjects("tStock")
    
    Set sd = CreateObject("Scripting.Dictionary")
    
    Enter_data.cmbx_art.clear
If Enter_data.txb_ean <> "" Then
     Ean = Enter_data.txb_ean
    With Sh_stock
        LastRow = .Cells(Rows.Count, 2).End(xlUp).Row
        For i = 1 To LastRow
            If .Cells(i, 3) = 1 Then
                If .Cells(i, 1) = Ean Then
                    sd.Item(.Cells(i, 2).Value) = ""
                End If
            End If
        Next
        If sd.Count Then Enter_data.cmbx_art.List = sd.keys
    End With
End If

End Sub