Private Sub Worksheet_Change(ByVal Target As Range)
dim vu as boolean
dim lig as long
for lig=1 to 122' boucle
if int(cells(lig,1))=15 or int(cells(lig,1))=50 or int(cells(lig,1))=60 then vu =true:exit for
next
if vu=true then
Shapes("test").Visible = msoFalse
Else
Shapes("test").Visible = msoTrue
End If
End Sub