Private Sub Worksheet_Change(ByVal Target As Range)
Dim sel As Range, c As Range
Application.ScreenUpdating = False
ActiveCell.Activate 'si un objet est sélectionné
Set sel = Selection 'mémorise
[V:V].FormatConditions.Delete 'RAZ
For Each c In Intersect(Me.UsedRange.EntireRow, [V:V]) 'à adapter
c.Select 'nécessaire si version Excel antérieure à 2007
c.FormatConditions.Add xlExpression, Formula1:="=" & ActiveCell(1, -1).Address(0, 0) & "="""""
c.FormatConditions(1).Interior.ColorIndex = 3 'rouge
Next
sel.Select
End Sub