afficher un libellé à partie d'un code barre

Private Sub OK_Click()
'
'
Dim EAN12 As Range, EAN13 As Range, Cell As Range
Dim I As Integer, x As Integer, Combien As Integer

Combien = Len(Range('a2').Value)

Set EAN12 = Sheets(1).Range('A2:A' & Range('A65536').End(xlUp).Row)
Set EAN13 = Sheets(1).Range('B2:A' & Range('B65536').End(xlUp).Row)

x = 2

For Each Cell In EAN12
    For I = 1 To EAN13.Count
        If CStr(Cell) = CStr(Left(Cells(I, 2), Combien)) Then
            Cells(x, 4) = Cell: Cells(x, 5) = Cells(I, 2)
            Cell.Interior.ColorIndex = 6: Cells(I, 2).Interior.ColorIndex = 6
            x = x + 1
        End If
    Next I
Next Cell

End Sub

Dim EAN12 As Range, EAN13 As Range, Cell As Range
Dim I As Integer, x As Integer, Combien As Integer
'Déclaration des variables : Range = palge des données
' Integer = nombre entier entre 0 et 32000 je crois

Combien = Len(Range('a2').Value) ' Determine la longueur des EAN de la colonne A

Set EAN12 = Sheets(1).Range('A2:A' & Range('A65536').End(xlUp).Row)
' définit la plage de cellules remplies avec des code barre(EAN) de la colonne A
' de A2 à Axx
Set EAN13 = Sheets(1).Range('B2:A' & Range('B65536').End(xlUp).Row)
' Idem pour la colonne B

x = 2 ' Je crois que c'est clair

For Each Cell In EAN12 ' Pour chaque cellule avec un code barre dedans en colonne A
    For I = 1 To EAN13.Count ' regarde toutes les cellules de la colonne B
        If CStr(Cell) = CStr(Left(Cells(I, 2), Combien)) Then ' Si les deux sont identiques
            Cells(x, 4) = Cell: Cells(x, 5) = Cells(I, 2) ' Alors copie en colonne D & E des codes barres
            Cell.Interior.ColorIndex = 6: Cells(I, 2).Interior.ColorIndex = 6 ' surlignage en jaune des codes barres en A & B
            x = x + 1
        End If ' fin si
    Next I ' Prochaine Cellule dans la colonne B retour à If CStr(Cell)...
Next Cell ' Quand toutes les cellules de la colonne B ont été scannée, on change de cellule en colonne A
' retour à For I = 1 To EAN13.Count