pb de formules couleur ellipse

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

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1:A2")) Is Nothing Then
    With ActiveSheet.Shapes("ellipse " & Target.Row)
        .DrawingObject.Caption = Target.Value
        If Target = "occupee" Then
            .DrawingObject.Interior.ColorIndex = 10
        ElseIf Target = "libre" Then
            .DrawingObject.Interior.ColorIndex = 13
        End If
    End With
End If
End Sub