Private mem As Range
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("Planning")) Is Nothing Then Set mem = Target
If Not Intersect(Target, Range("JourSem")) Is Nothing Then
Range("B1").Value = Target.Value
If Not mem Is Nothing Then
mem.Select
Else
Range("A1").Select
End If
End If
End Sub