Un événement Worksheet_Change permet de surveiller en permanence le niveau de remplissage du silo affiché sur une feuille de suivi, et d'alerter immédiatement dès que sa capacité maximale est dépassée.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$C$2" Then
        If Target.Value > 500 Then
            MsgBox "Capacité du silo dépassée !"
        End If
    End If
End Sub

Ce code, placé dans le module de la feuille de suivi du silo, surveille la cellule C2 (le niveau de remplissage en tonnes) et déclenche une alerte dès que ce niveau dépasse 500, immédiatement au moment de la saisie qui provoque ce dépassement.

À vous de jouer : adaptez ce code pour afficher aussi, dans le message, le nombre exact de tonnes en excédent.