Sub ADD_DIFF_ET_AJOUT()
Dim a As Worksheet, b As Worksheet, t, i&, dm As Range, ld&, dl&
t = Array("Ticket", "Date ouverture", "Date modification")
Set a = Sheets("NEW"): Set b = Sheets("OLD")
ld = a.Cells(Rows.Count, 3).End(3).Row
dl = b.Cells(Rows.Count, 3).End(3).Row
a.Range(a.Cells(2, 4), a.Cells(ld, 4)).FormulaR1C1 = "=RC[-3]&RC[-1]"
b.Range(b.Cells(2, 4), b.Cells(dl, 4)).FormulaR1C1 = "=RC[-3]&RC[-1]"
Set dm = b.Range(b.Cells(2, 4), b.Cells(Rows.Count, 4).End(3))
Application.ScreenUpdating = False
Sheets("DIFF").[A1:C1] = t: Sheets("AJOUT").[A1:C1] = t
For i = 2 To a.Cells(Rows.Count, 4).End(3).Row
If IsError(Application.Match(a.Cells(i, 4), [dm], 0)) Then
Sheets("AJOUT").Cells(Rows.Count, 1).End(3)(2).Resize(, 3).Value = a.Cells(i, 1).Resize(, 3).Value
ElseIf IsNumeric(Application.Match(a.Cells(i, 4), [dm], 0)) Then
Sheets("DIFF").Cells(Rows.Count, 1).End(3)(2).Resize(, 3).Value = a.Cells(i, 1).Resize(, 3).Value
End If
Next
a.Columns(4).Clear: b.Columns(4).Clear
End Sub