Vba definir une plage 'remontante'

Sub copieinverse(source As Range, destination As Range)
  With source.Parent
    source.Copy .Cells(1, Columns.Count - source.Columns.Count)
    With .Columns(Columns.Count).Resize(source.Rows.Count)
      .Formula = "=row()"
      .Value = .Value
      With .Offset(0, -source.Columns.Count).Resize(, source.Columns.Count + 1)
        .Sort key1:=.Cells(1, .Columns.Count), order1:=xlDescending, Header:=xlNo
        .Columns.Resize(, source.Columns.Count).Copy destination(1, 1)
        .EntireColumn.Delete
      End With
    End With
  End With
  Application.Goto destination
End Sub

=SIERREUR(""&INDEX(A:A;EQUIV("zzz";A:A)-LIGNE()+1);"")

=SIERREUR(--REPT(INDEX(B:B;EQUIV(9^9;B:B)-LIGNE()+1);INDEX(B:B;EQUIV(9^9;B:B)-LIGNE()+1)<>"");"")

=DECALER($A$11;-LIGNES($1:1);)

Private Sub Worksheet_Change(ByVal Target As Range)
Dim P As Range, Q As Range, rc&, i&, n&
If Application.CutCopyMode = 0 Or Selection.Count = 1 Then Exit Sub
If MsgBox("Inverser l'odre des lignes ? La plage sera limitée à 100 x 100...", 4, "Coller") = 7 Then Exit Sub
Application.ScreenUpdating = False
Application.EnableEvents = False 'désactive les évènements
Set P = Selection
With Workbooks.Add.Sheets(1) 'document auxiliaire
    P.Copy .[A1]
    If P.Rows.Count > 100 Then .Rows(101).Resize(.Rows.Count - 100).Delete
    If P.Columns.Count > 100 Then .Columns(101).Resize(, .Columns.Count - 100).Delete
    Set Q = .UsedRange
    rc = Q.Rows.Count
    For i = rc To 1 Step -1
        n = n + 1
        If P.Rows(n).Cells.Count > 100 Then P.Rows(n).Clear
        Q.Rows(i).Copy P(n, 1)
    Next
    .Parent.Close False 'fermeture du document auxiliaire
End With
Application.EnableEvents = True 'réactive les évènements
End Sub