pas testé la précédente mais en voilà une autre
Sub CompareDeuxFichiers()
Dim Cell As Range, Plage As Range, I As Long, Classeur1 As Workbook, Classeur2 As Workbook, SFeuil1 As Worksheet, SFeuil2 As Worksheet
Application.ScreenUpdating = False
Set Classeur1 = ActiveWorkbook 'Workbooks("Exemple_probleme.xls")
Set Classeur2 = Workbooks("Exemple_probleme_2.xls")
Set ZoneResultat = Classeur1.Sheets("feuil3")
Set SFeuil1 = Classeur1.Sheets("Feuil1")
Set SFeuil2 = Classeur2.Sheets("Feuil2")
Set Plage1 = SFeuil1.Range(SFeuil1.[A1], SFeuil1.[A1].End(xlDown))
Set Plage2 = SFeuil2.Range(SFeuil2.[A1], SFeuil2.[A1].End(xlDown))
For Each cl In Plage1
If Plage2.Find(cl, Plage2(1), xlValues, xlWhole) Is Nothing Then
I = I + 1
ZoneResultat.Cells(I, 3) = cl
End If
Next cl
Classeur1.Sheets("feuil3").Select
End Sub
'ps le classeur ou doit figurer le code est le premier et il doit être actif
bye
STephane