Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Application.Intersect(Target, Range("D3: N13")) Is Nothing Then Exit Sub
'pour decolorer si sorti de la selection
For Each c In Range("D3: N13")
If c = "" And c.Interior.Color <> RGB(191, 191, 191) Then c.Interior.Color = RGB(255, 255, 255)
Next c
If Selection.Cells.Interior.Color <> RGB(191, 191, 191) Then
Selection.Cells.Interior.Color = RGB(255, 255, 0)
Cells(Selection.Column - 1, Selection.Row + 1).Interior.Color = RGB(255, 255, 0)
End If
End Sub