Une boucle simple permet de signaler automatiquement les employés dont le nombre d'absences dépasse un seuil, en s'appuyant sur une colonne "nombre d'absences du mois".

Sub DetecterAbsencesRepetees()
    On Error Resume Next
    Dim i As Integer
    Dim compteurAlertes As Integer
    compteurAlertes = 0

    For i = 2 To 6
        If Cells(i, 3).Value >= 3 Then
            compteurAlertes = compteurAlertes + 1
        End If
    Next i

    MsgBox compteurAlertes & " employé(s) à signaler pour absences répétées"
End Sub

On Error Resume Next protège la boucle si une cellule contient une valeur non numérique inattendue (une cellule vide ou du texte par erreur de saisie), en évitant que la macro entière ne s'arrête sur une seule ligne mal renseignée.

À vous de jouer : adaptez cette macro pour lister aussi les noms des employés concernés, pas seulement les compter.