اخي الحبيب ابو احمد حل رائع ...
و احببت ان اضيف في حالة كان التحديد متغيرا
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Selection.Cells Is Nothing Then
x = Target.Interior.ColorIndex
For i = 1 To 3
Target.Offset(0, i).Interior.ColorIndex = x
Next
End If
End Sub