Bonjour,
Sub DiffCap()
Dim d As Object, k$, n%, i%
Set d = CreateObject("Scripting.Dictionary")
Application.ScreenUpdating = False
With ActiveSheet
n = .Cells(.Rows.Count, 1).End(xlUp).Row
For i = 2 To n
k = .Cells(i, 1)
If d.exists(k) Then
If .Cells(i, 2) <> d(k) Then .Cells(i, 1).Resize(, 2).Interior.Color = vbRed
Else
d(k) = .Cells(i, 2)
End If
Next i
End With
End Sub
Ceci pour suivre ton exemple (qui différait de ton énoncé), soit coloration des lignes de même ID mais CAP différente, à partir de la 2e occurrence de l'ID.
Ton énoncé impliquait, lui, la coloration de toutes lignes présentant même ID si les CAP n'étaient pas identiques pour toutes, ce qui ne justifiait que d'une simple MFC.
Cordialement.