Sub cartman()
'on boucle sur le tableau de gauche
For i = 1 To 10
'on récupere le nom et la catégorie de la ligne i du tableau de gauche
nom = Cells(i, 2)
cat = Cells(i, 3)
'ici on boucle sur le tableau de droite
For y = 1 To 20
'on compare le nom avec chaque nom du tableau de droite et si on trouve le meme nom
If Cells(y, 6) Like nom Then
'on dit que la cellule a coté du nom est egal a la catégorie
Cells(y, 7) = cat
End If
Next y
Next i
End Sub