[Résolu] Colorer une cellule en fonction d'une autre colorée

Private Sub Worksheet_SelectionChange(ByVal T As Range)
If T.Interior.ColorIndex = 6 Then
T.Offset(, 3).Interior.ColorIndex = 6
End If
End Sub

Dim R as Range 'en début de page
Sub jaune()
  If ActiveCell.Column > 1 Then Exit Sub
  Selection.Interior.ColorIndex = 6
  'si les cellules sont contigües,supprimer l'apostrophe en début de la ligne ci-dessous
   'Selection(1, 3).Resize(Selection.Count).Interior.ColorIndex = 6
   'si elles sont dispersées, supprimer l'apostrophe en début de la ligne ci-dessous
   'For Each R In Selection: R(1, 3).Interior.ColorIndex = 6: Next
End Sub

Sub blanc()
  If ActiveCell.Column > 1 Then Exit Sub
  'si les cellules sont contigües, supprimer l'apostrophe en début de la ligne ci-dessous
   'Selection.Interior.ColorIndex = 2
   'si elles sont dispersées, supprimer l'apostrophe en début de la ligne ci-dessous
   'Selection(1, 3).Resize(Selection.Count).Interior.ColorIndex = 2
End Sub

Private Sub Workbook_Open()
'La touche F1 colorie en jaune, la touche F3 en blanc
    Application.OnKey "{F1}", "ThisWorkbook.jaune"
    Application.OnKey "{F3}", "ThisWorkbook.blanc"
 End Sub

Sub jaune() 'Couleur jaune
    ActiveCell.Activate 'au cas où un objet serait sélectionné
    Selection.Interior.ColorIndex = 6
    If Not Intersect(Selection, [A:A]) Is Nothing Then _
      Intersect(Intersect(Selection, [A:A]).EntireRow, [C:C]).Interior.ColorIndex = 6
End Sub

Sub blanc() 'Couleur blanche
    ActiveCell.Activate 'au cas où un objet serait sélectionné
    Selection.Interior.ColorIndex = 2 'pourquoi pas = xlNone ???
    If Not Intersect(Selection, [A:A]) Is Nothing Then _
      Intersect(Intersect(Selection, [A:A]).EntireRow, [C:C]).Interior.ColorIndex = 2
End Sub