Sub test()
'déclaration des variables
Dim iLig As Long, nbLig As Long
With ThisWorkbook.Sheets("Feuil1")
'récupérer la dernière ligne de la colonne "D"
nbLig = .Range("D" & .Rows.Count).End(xlUp).Row
'boucler sur toutes les lignes de la colonne "D"
For iLig = 2 To nbLig
'si on ne trouve pas la valeur de la cellule "D iLig" dans la colonne "J"
If .Range("J:J").Find(.Range("D" & iLig), , xlValues, xlWhole) Is Nothing Then
'colorer en jaune la celulle "D iLig"
With .Range("D" & iLig).Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535
End With
End If
Next iLig
End With
End Sub