Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With [D8]
.Interior.Color = IIf(Target.Address = .Address, 49407, 12874308) 'couleur de fond
.Font.ColorIndex = IIf(Target.Address = .Address, xlAutomatic, 2) 'couleur police
End With
End Sub