Si en colonne B j'ai par exemple 11 fois Lucas et en colonne C j'ai 10 fois Lucas, j'aurais donc 10 Lucas colorés en B et 10 Lucas colorés en C, ça va de paire 2,4,6,8....
Option Explicit
Sub Doublons_colorer()
Dim i As Long
For i = 2 To Range("b65536").End(xlUp).Row
If Range("b" & i).Value = Range("b" & i).Offset(, 1).Value Then Range("b" & i).Resize(, 2).Interior.ColorIndex = 36
Next
End Sub