Sub DiffList()
Dim i&, j&, k&, Fin1&, Fin2&, a&, Tab1, Tab2, Diff, DebList1, Deblist2, Trouvé As Boolean
DebList1 = 4
Deblist2 = 1
Worksheets("Feuil4").Cells.ClearContents
Fin1 = Feuil1.Range("A" & Rows.Count).End(xlUp).Row
Fin2 = Feuil2.Range("A" & Rows.Count).End(xlUp).Row
Tab1 = Feuil1.Range("A" & DebList1 & ":C" & Fin1)
Tab2 = Feuil2.Range("A" & Deblist2 & ":C" & Fin2)
ReDim Diff(UBound(Tab2), 3)
k = 1
For i = LBound(Tab2) To UBound(Tab2)
Trouvé = False
For j = LBound(Tab1) To UBound(Tab1)
If Trim(Tab2(i, 1)) = Trim(Tab1(j, 1)) Then
Trouvé = True
If Tab2(i, 2) <> Tab1(j, 2) Then
Diff(k, 1) = Tab2(i, 1)
Diff(k, 2) = Tab2(i, 2)
Diff(k, 3) = Tab2(i, 3)
k = k + 1
End If
Exit For
End If
Next j
If Trouvé = False Then
Diff(k, 1) = Tab2(i, 1)
Diff(k, 2) = Tab2(i, 2)
Diff(k, 3) = Tab2(i, 3)
k = k + 1
End If
Next i
Worksheets("Feuil4").Range("A1").Resize(UBound(Diff, 1), UBound(Diff, 2)) = Diff
End Sub