Une boucle avec condition permet de repérer automatiquement les membres dont l'adhésion arrive bientôt à échéance, à partir d'une colonne "jours restants avant expiration".

Sub IdentifierAdhesionsExpiration()
    Dim i As Integer
    Dim compteurAlertes As Integer
    compteurAlertes = 0

    For i = 2 To 10
        If Cells(i, 3).Value <= 30 Then
            compteurAlertes = compteurAlertes + 1
        End If
    Next i

    MsgBox compteurAlertes & " adhésion(s) à renouveler sous 30 jours"
End Sub

Seuls les membres dont la colonne C (jours restants) est à 30 ou moins sont comptés — un seuil facilement ajustable pour anticiper les relances de renouvellement plus ou moins tôt.

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