Trier un tableau Temporaire Multi Colonnes(24) sur une Colonne

Sub TriTableau2D()
  Dim Tab_Interventions()
  Tab_Interventions = [B1:Y63].Value  ' Tableau 2D 'B1 est la Ligne d’entêtes
 
Tri Tab_Interventions(), 1, LBound(Tab_Interventions, 1) + 1, UBound(Tab_Interventions, 1) 'd'ou le +1 ligne d’entête non prise en compte lors du tri ?
[AA1].Resize(UBound(Tab_Interventions, 1), UBound(Tab_Interventions, 2)).Value = Tab_Interventions  '

End Sub

Sub Tri()
  Set Rng = Range("B1:Y63")
  Rng.Sort key1:=Rng(2, 1), Header:=xlYes
End Sub

Option Explicit
Option Compare Text
Sub TriTableau2D()
  Dim Tab_Interventions()
  Tab_Interventions = [B2:Y63].Value    'on recupere  les valeur de la plage                                             ' Tableau 2D
  Tri Tab_Interventions(), 1, LBound(Tab_Interventions), UBound(Tab_Interventions)
  [AA2].Resize(UBound(Tab_Interventions), UBound(Tab_Interventions, 2)).Value = Tab_Interventions     ' Value2 pour les dates Laeticia90
End Sub

Option Explicit
Option Compare Text
Sub TriTableau2D()
 
Tri Tab_Interventions(), 1, LBound(Tab_Interventions) +1, UBound(Tab_Interventions)

[AA2].Resize(UBound(Tab_Interventions), UBound(Tab_Interventions, 2)).Value = Tab_Interventions     '
End Sub