Un rapprochement bancaire consiste à comparer les montants enregistrés en comptabilité avec ceux du relevé bancaire, ligne par ligne. Une boucle avec comparaison automatise ce contrôle fastidieux.

Sub DetecterEcartsRapprochement()
    On Error Resume Next
    Dim i As Integer
    Dim compteurEcarts As Integer
    compteurEcarts = 0

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

    MsgBox compteurEcarts & " écart(s) détecté(s)"
End Sub

La colonne B (montant comptable) est comparée à la colonne C (montant bancaire) ligne par ligne ; toute différence incrémente le compteur d'écarts. On Error Resume Next protège la boucle si une cellule contient une valeur inattendue (non numérique), sans arrêter tout le contrôle.

À vous de jouer : adaptez cette macro pour surligner en couleur les lignes présentant un écart, en plus de les compter.