comparer cellules dans deux colonnes via Instr(chaine)

If InStr(W2.Range("D" & m), N) > 0 Then  
  Wsheet.Range("P2").Font.Colorindex = 3
  W2.Range("D" & m).Interior.ColorIndex = 3
Else
  Wsheet.Range("P2").Interior.ColorIndex = 6
end if

If W2.Range("D" & m) like "*" & Wsheet.Range("P2") & "*" Then 
Wsheet.Range("P2").Font.Colorindex = 3
W2.Range("D" & m).Interior.ColorIndex = 3 'rouge
Else
Wsheet.Range("P2").Interior.ColorIndex = 6 'jaune
end if

Sub Traitement()
    Dim Dl As Long, cell As Range, Plage As Range
    Const limit As Integer = 5
    Dl = Cells(Rows.Count, "P").End(xlUp).Row
    Set Plage = Range("P2:P" & Dl)
    For Each cell In Plage  'boucle sur col P
        'si le contenu de la colonne P est VIDE(blanc) y place le mot "NIHIL"
        If cell = "" Then
        cell.Interior.ColorIndex = 4  'caractères en rouge
        cell.Value = "NIHIL" 
        End If
    Next
    'ici pour les dépassement de [B]5[/B] caractères en colonne P, si moins, attention à NIHIL !  
    For Each cell In Plage  'boucle sur col P
        If Len(cell) > limit Then 
            cell.Interior.ColorIndex = 4    'caractères en vert
            cell.Value = "ERROR"              'place le mot "ERROR" '
        End If
    Next
    'ici pour voir s'il s'agit d'un code inconnu dans la liste des depots
    Dim Nom As String, Est As Range
    For Each cell In Plage
        Nom = cell
        Set Est = Sheets("Depots").[D:D].Find(cell)
        If Est Is Nothing Then
            cell = "NEW-" & Nom
            cell.Interior.ColorIndex = 23  ' en bleu
        End If
    Next
End Sub

Sub Traitement()
    Dim cell As Range, cel As Range
    Const limit As Integer = 5

    For Each cell In Range("P2:P" & Range("P65536").End(xlUp).Row)  'boucle sur col P
        If cell.Value = "" Then            ' si cell vide
            cell.Interior.ColorIndex = 3  'cell en rouge,pour caractère remplacer interior par font
            cell.Value = "NIHIL"           ' place le mot "NIHIL"
        ElseIf Len(cell) > limit Then            'si Len(cell) >limit
            cell.Interior.ColorIndex = 4    'cell en vert
            cell.Value = "ERROR"              'place le mot "ERROR" '
Else 'autres cas
With Worksheets("Depots")
            Set cel = .Cells.Find(cell.Value, LookIn:=xlValues, lookat:=xlPart)
            If Not cel Is Nothing Then
                cell.Interior.ColorIndex = 8   ' en bleu clair
            Else
                cell.Value = "NEW" & "-" & cell.Value
                cell.Interior.ColorIndex = 6  ' jaune
            End If
        End With
        End If
    Next cell

End Sub