Une boucle combinée à une condition permet de repérer automatiquement les factures dont le retard de paiement dépasse un seuil critique, à partir d'une colonne "jours de retard".

Sub IdentifierFacturesRetard()
    Dim i As Integer
    Dim compteurRetard As Integer
    compteurRetard = 0

    For i = 2 To 8
        If Cells(i, 3).Value > 60 Then
            compteurRetard = compteurRetard + 1
        End If
    Next i

    MsgBox compteurRetard & " facture(s) en retard critique"
End Sub

Seules les factures dont la colonne C (jours de retard) dépasse 60 jours sont comptées comme "retard critique" — un seuil facilement ajustable en modifiant une seule valeur dans le code.

À vous de jouer : adaptez cette macro pour distinguer un retard "modéré" (30 à 60 jours) d'un retard "critique" (au-delà de 60 jours), avec un compteur séparé pour chaque catégorie.