Private Sub CommandButton1_Click()
Dim DLiP As Long, DLiC As Long, Li As Long, Lig As Long
Dim TabloP, TabloC
DLiP = Cells(Rows.Count, 1).End(xlUp).Row
TabloP = Range("B2:I" & DLiP)
With Sheets("Categories")
DLiC = .Cells(Rows.Count, 1).End(xlUp).Row
TabloC = .Range("B2:I" & DLiC)
End With
For Li = 2 To DLiP
For Lig = 2 To DLiC
If TabloP(Li - 1, 1) & " " & TabloP(Li - 1, 3) & " " & TabloP(Li - 1, 4) = _
TabloC(Lig - 1, 1) & " " & TabloC(Lig - 1, 3) & " " & TabloC(Lig - 1, 5) Then
TabloP(Li - 1, 8) = TabloC(Lig - 1, 6)
End If
Next
Next
Range("B2:I" & DLiP) = TabloP
End Sub