Un événement Worksheet_Change permet de surveiller en permanence le cumul de la masse salariale affichée sur une feuille de suivi RH, et d'alerter dès qu'un seuil budgétaire est dépassé.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$E$2" Then
        If Target.Value > 50000 Then
            MsgBox "Budget masse salariale dépassé !"
        End If
    End If
End Sub

Ce code, placé dans le module de la feuille de suivi RH, surveille la cellule E2 (le cumul mensuel de la masse salariale) et déclenche une alerte dès que ce cumul dépasse 50 000 $, sans qu'aucune vérification manuelle ne soit nécessaire.

À vous de jouer : adaptez ce code pour distinguer un seuil d'avertissement (45 000 $) d'un seuil de dépassement critique (50 000 $), avec deux messages différents.