Automatisation comparaison de 2 fichiers sources pour en deceler les écarts

Bonjour à tous,

Je suis débutant en VBA et je souhaite comparer le contenu de deux fichiers sources pour en deceler les écarts mais en automatisant ça sous forme de VBA par rapport au data provider DCR

L'onglet ("Source") contient les données d'origine

L'onglet ("données")contient une extraction des données

L'onglet ("resultat") affiche les resultats de la comparaison des onglet Source et données, si le data provider est DCR si le data provider est une autre entité, ça ne fait pas la comparaison.

Avec : =SI(Source!D4<>données!D4;"Source:"&Source!D4&" / donnees:"&données!D4;"")

Pourriez vous m'aider ?

Cordialement

Bonjour,

Sub Test()

Dim DerniereLigne As Long

        With Sheets("Source")
             DerniereLigne = .Cells(.Rows.Count, "B").End(xlUp).Row
        End With
        Sheets("resultat").Range("D4:E" & DerniereLigne).Formula = "=IF(Source!D4<>données!D4,""Source:""&Source!D4&"" / donnees:""&données!D4,""ok"")"

End Sub