Un événement Worksheet_Change permet de surveiller en permanence le solde de trésorerie affiché sur une feuille de suivi, et d'alerter immédiatement dès qu'il devient négatif.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$F$2" Then
        If Target.Value < 0 Then
            MsgBox "Alerte : trésorerie négative !"
        End If
    End If
End Sub

Ce code, placé dans le module de la feuille de trésorerie, surveille la cellule F2 (le solde courant) et déclenche une alerte dès que sa valeur passe sous zéro, immédiatement au moment de la saisie qui provoque ce passage en négatif.

À vous de jouer : adaptez ce code pour afficher aussi le montant exact du découvert dans le message d'alerte.