XL 2019 Créer ordre croissant sur dates + association d'unités

Option Explicit

Sub Essai()
  If ActiveSheet.Name <> "OrdreParDate" Then Exit Sub
  Dim cel As Range, d&, m&, n&, i&: m = Rows.Count
  d = Cells(m, 1).End(3).Row + 1
  n = Cells(m, 2).End(3).Row
  Application.ScreenUpdating = 0
  If n > 1 Or Not IsEmpty([B1]) _
    Then [B1].Resize(n).Copy Cells(d, 1)
  With Columns(2)
    .ClearContents: .NumberFormat = "#,##0"
    .HorizontalAlignment = 4: .IndentLevel = 1
  End With
  d = d + n - 1
  With [A1].Resize(d)
    .Sort [A1], 1: .RemoveDuplicates 1, 2
  End With
  With Worksheets("Origine")
    n = .Cells(m, 1).End(3).Row
    If n = 1 And IsEmpty(.[A1]) Then Exit Sub
    For i = 1 To n
      With .Cells(i, 1)
        Set cel = Columns(1).Find(.Value, , -4163, 1, 1)
        If Not cel Is Nothing Then _
          cel.Offset(, 1) = .Offset(, 1)
      End With
    Next i
  End With
End Sub