Un événement Worksheet_Change permet de surveiller en permanence le nombre d'inscrits à un événement, et d'alerter immédiatement dès que la capacité maximale est dépassée.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$B$2" Then
        If Target.Value > 50 Then
            MsgBox "Capacité de l'événement dépassée !"
        End If
    End If
End Sub

Ce code, placé dans le module de la feuille de suivi de l'événement, surveille la cellule B2 (le nombre d'inscrits) et déclenche une alerte dès que ce nombre dépasse 50, immédiatement au moment de la saisie qui provoque ce dépassement.

À vous de jouer : adaptez ce code pour bloquer aussi la saisie en remettant automatiquement la cellule à sa valeur précédente en cas de dépassement.