Dim ancienAdr
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ancienAdr <> "" Then
For Each c In Range(ancienAdr)
coul = c.Interior.ColorIndex
Cells(c.Row, 2).Interior.ColorIndex = coul
Cells(c.Row, 3).Interior.ColorIndex = coul
Next c
ancienAdr = ""
End If
If Target.Column = 4 Then
ancienAdr = Target.Address
End If
End Sub