Sélection graphique dans un planning d'occupation

Dim mem As Range 'mémorise

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim P As Range, C As Range
Set P = [D5:AB19]
Set C = [AG3:AG8]
If Intersect(Target, Union(P, C)) Is Nothing Then Set mem = Nothing
If Not Intersect(Target, P) Is Nothing Then Set mem = Intersect(Target, P)
If Not Intersect(Target, C) Is Nothing And Target.Count = 1 _
  And Not mem Is Nothing Then
  mem.Interior.Color = Target.Interior.Color
  mem.Font.Color = Target.Font.Color
  If Target = "Effacer" Then mem = "" Else mem = Target
  mem.Select
End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim P As Range, C As Range
Set P = [D5:AB19]: Set C = [AG3:AG8]
If Intersect(Target, Union(P, C)) Is Nothing _
  And Not IsError([mem]) Then ThisWorkbook.Names("mem").Delete
If Not Intersect(Target, P) Is Nothing Then _
  ThisWorkbook.Names.Add "mem", Intersect(Target, P), Visible:=False
If Not Intersect(Target, C) Is Nothing And Target.Count = 1 _
  And Not IsError([mem]) Then
  [mem].Interior.Color = Target.Interior.Color
  [mem].Font.Color = Target.Font.Color
  If Target = "Effacer" Then [mem] = "" Else [mem] = Target
  [mem].Select
End If
End Sub