Code

Private Sub Worksheet_Change(ByVal Cible As Range)
Dim Plg As Range, Cel As Range
    With Range("$G$9:$G$45")
    If Not Intersect(Cible, .Cells) Is Nothing Then
        If Not IsEmpty(Cible) And Cible.Value = 0 Then
        MsgBox "Stck 0"
        Beep
    ElseIf Not Intersect(Cible, .Precedents) Is Nothing Then
        Set Plg = Intersect(Cible.Dependents, .Cells)
        If Not Plg Is Nothing Then
            For Each Cel In Plg.Cells
                If Not IsEmpty(Cel) And Cel.Value = 0 Then Beep
                MsgBox "Stck 0"
            Next
        End If
    End If
   End Sub