Private Sub Worksheet_Change(ByVal Target As Range)
Dim sh As Shape
Dim c As Range
If Target.Column = 1 Then
For Each sh In Sheets('feuil2').Shapes
If sh.Type = 1 Then
sh.Fill.Solid
sh.Fill.ForeColor.SchemeColor = 10
End If
Next sh
On Error Resume Next
For Each c In Range('a1:a' & Range('a65536').End(xlUp).Row)'pour chaque cellule de A1 à A & la derniere ligne saisie
If c = 1 Then ' si la cellule contient 1
With Sheets('feuil2').Shapes(c.Offset(0, 1)) ' pour le cercle qui ce nomme ce qui ce trouve dans la cellue 'b' de la feuille 1
.Fill.Solid
.Fill.ForeColor.SchemeColor = 17
End With
End If
Next c
End If
End Sub