Une macro peut identifier automatiquement les clients dont le paiement accuse un retard important, en combinant une boucle et une condition sur une colonne "jours de retard".

Sub RelancerImpayes()
    Dim i As Integer
    Dim messageRelance As String
    Dim nombreImpayes As Integer
    nombreImpayes = 0

    For i = 2 To 6
        If Cells(i, 3).Value > 30 Then
            messageRelance = messageRelance & Cells(i, 1).Value & vbNewLine
            nombreImpayes = nombreImpayes + 1
        End If
    Next i

    If nombreImpayes > 0 Then
        MsgBox "Clients à relancer (" & nombreImpayes & ") :" & vbNewLine & messageRelance
    Else
        MsgBox "Aucun impayé à relancer"
    End If
End Sub

La colonne C (jours de retard) sert de critère : seuls les clients dépassant 30 jours sont ajoutés au message de relance et comptés dans nombreImpayes, un compteur qui permet aussi d'afficher un message différent quand aucun impayé n'est détecté.

À vous de jouer : adaptez cette macro pour distinguer deux niveaux d'urgence, par exemple "retard modéré" entre 30 et 60 jours et "retard critique" au-delà.