Private Sub Worksheet_Change(ByVal Target As Range)
With ActiveSheet
If IsNumeric([k3]) Then .Shapes("mon shape").Visible = ([k3] > 0) _
Else .Shapes("mon shape").Visible = False
End With
End Sub
Function AfficheCache(nb, seuil, image)
ActiveSheet.Shapes(image).Visible = (nb > seuil)
AfficheCache = 0
End Function