Une boucle simple permet de repérer les membres dont la cotisation reste impayée malgré une relance déjà envoyée, à partir de deux colonnes de statut.

Sub DetecterCotisationsImpayees()
    On Error Resume Next
    Dim i As Integer
    Dim compteurImpayes As Integer
    compteurImpayes = 0

    For i = 2 To 12
        If Cells(i, 3).Value = "Impayé" And Cells(i, 4).Value = "Relancé" Then
            compteurImpayes = compteurImpayes + 1
        End If
    Next i

    MsgBox compteurImpayes & " cotisation(s) toujours impayée(s) après relance"
End Sub

Seuls les membres à la fois marqués "Impayé" (colonne C) ET "Relancé" (colonne D) sont comptés — un membre relancé mais qui a depuis payé, ou un membre impayé pas encore relancé, ne sont pas comptabilisés ici. On Error Resume Next protège la boucle contre une cellule de statut vide inattendue.

À vous de jouer : adaptez cette macro pour lister les noms des membres concernés, prêts pour une seconde relance plus ferme.