Comparaison deux fichiers Excel

Bonjour la communauté

Je reviens vers vous pour une nouvelle aide.

Je cherche à comparer deux fichiers, Fichier A et Fichier B

Si les infois contenus dans les cellules de la colonne A ou B du fichier 1 sont identiques à celles contenues dans les cellules D ou E , OK dans la colonne F. Sinon Non

J'avais trouvé une macro qui permet d'ouvrir une fenêtre pour choisir le dossier manuellement mais je n'arrive pas a l'adapter.

J'aurai voulu avoir la meme choses sur cette nouvelle macro. (je mets la macro sur le fichier, histoire de guider un peu)

Je vous remercie d'avance.

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx Exemple macro trouvé sur le forumxxxxxxxxxxxxxxxxxxxxxxx

Sub Comparaison()

Dim J As Long, LgDer As Long

Dim Cel As Range

Dim ColMain As Integer, ColExt As Integer, ColResult As Integer

Dim Fichier

Dim WbExt As Workbook

Dim WsExt As Worksheet, WsMain As Worksheet

Set WsMain = Sheets("main")

ColMain = 2

ColExt = 1

ColResult = 9

LgDer = WsMain.Cells(Rows.Count, ColMain).End(xlUp).Row

WsMain.Range(WsMain.Cells(3, ColResult), WsMain.Cells(LgDer, ColResult)).ClearContents

Fichier = Application.GetOpenFilename("Excel Workbook (*.xlsx),*.xlsx")

If Fichier = False Then Exit Sub

Application.ScreenUpdating = False

Set WbExt = Workbooks.Open(Filename:=Fichier)

Set WsExt = WbExt.Sheets("Sheet1")

For J = 3 To WsMain.Cells(Rows.Count, ColMain).End(xlUp).Row

Set Cel = WsExt.Columns(ColExt).Find(what:=WsMain.Cells(J, ColMain), LookIn:=xlValues, lookat:=xlWhole)

If Not Cel Is Nothing Then

WsMain.Cells(J, ColResult) = "OK ligne " & Cel.Row

Else

WsMain.Cells(J, ColResult) = "No"

End If

Next J

WbExt.Close

MsgBox "Terminé"

End Sub