Bonjour,
Si, comme dans l'exemple fourni, les données constituent une "zone" (au sens de "zone en cours") et que les dimensions restent raisonnables, on peut essayer ce bout de code. Il s'exécutera à chaque modification de contenu d'une des cellules de la zone.
Pas testé tous les cas de figure imaginables ... Je t'en laisse le soin
Clic droit sur l'onglet de Feuil1 et coller les lignes suivantes:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [B2].CurrentRegion) Is Nothing Then
Set pl = [B2].CurrentRegion
pl.Interior.ColorIndex = none
For Each c In pl
If Application.CountIf(pl.Columns(c.Column - 1), c) > 1 Then c.Interior.ColorIndex = 6
Next c
End If
End Sub