Créer un mini-CRM Excel avec relance automatique par email (Macro VBA)

Pourquoi créer un CRM dans Excel grâce aux Macros ?

Même à l’ère des outils comme HubSpot ou Pipedrive, Excel reste un allié puissant pour gérer une base client, surtout dans les petites structures. Il permet d’avoir le contrôle total sur la logique métier et les automatisations… sans abonnement mensuel.

Et cerise sur le gâteau : avec un peu de VBA, on peut automatiser les relances commerciales en fonction de la date de dernier contact ! Parfait pour les indépendants, TPE ou agences qui veulent garder leurs prospects au chaud.

🧩 Objectif du tutoriel

Nous allons :

• Créer un tableau Excel contenant vos prospects/clients.
• Ajouter une date de dernière interaction.
• Automatiser une relance par email si cette date dépasse un certain seuil (ex : 30 jours sans nouvelles).
• Ajouter un bouton “Lancer relances” pour tout faire en un clic.

🧾 Structure du tableau

💻 Le code VBA pour automatiser les relances

Voici un script simple à insérer dans l’éditeur VBA (ALT + F11) :

Sub RelanceAutomatique()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets(1)

    Dim lastRow As Long
    lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row

    Dim i As Long
    Dim nowDate As Date
    nowDate = Date

    For i = 2 To lastRow
        Dim lastContact As Date
        If IsDate(ws.Cells(i, 4).Value) Then
            lastContact = ws.Cells(i, 4).Value

            If nowDate - lastContact >= 30 Then
                Dim destinataire As String
                destinataire = ws.Cells(i, 3).Value

                Dim nomClient As String
                nomClient = ws.Cells(i, 1).Value

                Dim OutApp As Object
                Dim OutMail As Object
                Set OutApp = CreateObject("Outlook.Application")
                Set OutMail = OutApp.CreateItem(0)

                With OutMail
                    .To = destinataire
                    .Subject = "Relance – Toujours intéressé par notre offre ?"
                    .Body = "Bonjour, " & vbCrLf & vbCrLf & _
                            "Nous n'avons pas eu de retour depuis notre dernière interaction avec " & nomClient & "." & vbCrLf & _
                            "Souhaitez-vous que l'on reprenne contact ?" & vbCrLf & vbCrLf & _
                            "L'équipe de votre agence web Atoneo."
                    .Send
                End With

                ws.Cells(i, 5).Value = nowDate + 7
            End If
        End If
    Next i
    MsgBox "Relances effectuées !"
End Sub

✅ Ce que ce mini-CRM vous apporte

• 🔁 Plus d’oublis de relance
• 📬 Mails personnalisés envoyés automatiquement
• ⏱️ Gain de temps pour les commerciaux
• 🧩 100% personnalisable selon vos méthodes de vente

🎯 Conseil SEO & business

👉 Ce type d’automatisation est souvent une première brique vers une transformation digitale plus poussée. Si votre entreprise souhaite aller plus loin (intranet, automatisations métier, outils personnalisés), contactez nous pour étudier un développement de logiciel SaaS spécifique par exemple.