Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, [A1]) Is Nothing Then
If Target.Address = "$A$1" Then
ActiveSheet.Shapes("ellipse 1").Select
Selection.Characters.Text = Target.Value
If Target = "occupee" Then
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 10
Range("a35").Select
End If
If Target = "libre" Then
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 13
Range("a35").Select
End If
End If
End If
If Not Application.Intersect(Target, [A2]) Is Nothing Then
If Target.Address = "$A$2" Then
ActiveSheet.Shapes("ellipse 2").Select
Selection.Characters.Text = Target.Value
If Target = "libre" Then
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 10
Range("a35").Select
End If
If Target = "occupee" Then
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 13
Range("a35").Select
End If
End If
End If
End Sub