Re,
ActiveSheet.Shapes("Cloche").Visible = True devrait être suffisant ...
Merci James007 pour la correction, , effectivement, cela suffit amplement.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim plage As Range, x As Integer
Set plage = Range(Cells(3, 3), Cells(15, 3)) 'plage de la ligne 3 à 15: à adapter
x = Application.CountA(plage) 'compte le nombre de valeurs dans la plage
If x = 0 Then
ActiveSheet.Shapes("Cloche").Visible = False
Else
ActiveSheet.Shapes("Cloche").Visible = True
End If
End Sub
Amitiés,