VBA - tri de A à Z - pb création de ligne

[Ellen25]

Bonjour,
J’essaie désespérément de classer ma colonne B (avec étendre à la sélection) des dates les plus anciennes aux dates les plus récentes. A chaque fois, il se créé des lignes vides entre la ligne 1 et la ligne 1694
Y a t-il quelqu’un pour m’aider ?
Mon fichier est joint. TRI.xlsm (70,1 Ko)

d’avance merci

[Mimimathy]

Bonsoir,

Teste cette macro

Sub TRI()
  'Trier les dates de l'onglet "fichier export"
  Dim dl%
  dl = ActiveWorkbook.Worksheets("FICHIER EXPORT").Cells(Rows.Count, 1).End(xlUp).Row
   ActiveWorkbook.Worksheets("FICHIER EXPORT").Sort.SortFields.Clear
   ActiveWorkbook.Worksheets("FICHIER EXPORT").Sort.SortFields.Add Key:=Range("B1"), _
   SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortTextAsNumbers
    With ActiveWorkbook.Worksheets("FICHIER EXPORT").Sort
      .SetRange Range("A1:ALR" & dl)
      .Header = xlNo
      .MatchCase = False
      .Orientation = xlTopToBottom
      .SortMethod = xlPinYin
      .Apply
    End With
End Sub

[Ellen25]

Re,

Ça fonctionne !
Merci beaucoup de votre aide
Je suis novis en VBA et je m’autoforme donc parfois je coince un moment.