Autres Excel 2007 - Clic sur une cellule et faire changer de couleur une autre cellule

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Range("B6"), Target) Is Nothing And Target.Count = 1 Then Exit Sub
[C16].Interior.Color = 65535
Cancel = True
End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address = [B6].Address Then
    [C16].Interior.Color = 65535
Else
    If Target.Address = [D6].Address Then
        [D17].Interior.Color = 65535
    End If
End If
Cancel = True
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
Target.Offset(1, 10).Interior.Color = vbYellow
End Sub

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   Me.Names.Add "ValCel", Target(1 + Target.Row Mod 2, 1).Value
   End Sub

Private Sub Worksheet_SelectionChange(ByVal T As Range)
Static r As Range
If Not Intersect(Range("C22:J27,C30:J40"), T) Is Nothing Then
    On Error Resume Next
    r.FormatConditions.Delete
    T.FormatConditions.Add(Type:=2, _
    Formula1:=-1).Interior.Color = vbYellow
    Set r = T
End If
End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Dim v, c As Range
    If Not Intersect(Target, Rows("5:16")) Is Nothing Then
        Cancel = True
        v = Cells(Int((Target.Row + 1) / 2) * 2, Target.Column)
        With [C22:J40]
            .Interior.ColorIndex = xlNone
            If v <> "" Then
                Set c = .Find(v, , xlValues, xlWhole)
                If Not c Is Nothing Then c.Interior.Color = vbYellow
            End If
        End With
    End If
End Sub