Sub iArticle()
Dim iLastRow As Long
Dim i As Long
Dim Article As String
Dim FoundArticle As Range
Dim FirstAdres As String
Dim j As Integer
  iLastRow = Cells(Rows.Count, "G").End(xlUp).Row
  Range("G4:H" & iLastRow).Interior.ColorIndex = xlNone
'  iLastRow = Cells(Rows.Count, "J").End(xlUp).Row
  For i = 3 To 7
    Article = Cells(i, "J")
Set FoundArticle = Columns(7).Find(Article, , xlValues, xlWhole)
    If Not FoundArticle Is Nothing Then     'нашли
        FirstAdres = FoundArticle.Address   'адрес первого вхождения
        Do
          For j = 11 To 14
            If FoundArticle.Offset(, 1) = CStr(Cells(i, j)) Then
              FoundArticle.Resize(, 2).Interior.ColorIndex = 6
              Exit For
            End If
          Next
            Set FoundArticle = Columns(7).FindNext(FoundArticle)
        Loop While FoundArticle.Address <> FirstAdres
    End If
  Next
End Sub