Tri aprés vligne

bonjour le forum

je recupere des données en col D2:D21 que je reinscrit en ligne F3:Y3 avec la macro.C'est données sont triées en ordre croissant ce qui en plus elimine les cellules vides et les recopie en col F..

mais quand a la prochaine MaJ j'actionne la macro elles se recopient bien avec vligne une ligne en dessous mais elles ne sont plus triées car la donnée F3:Y3 du tri ma pas changé.je voudrais qu'elles changent et qu'elles suivent vligne.

Comment inscrire dans la macro que le tri suive vligne.

merci

Bonjour

Je n'ai pas pu tester n'ayant pas 2007

A essayer

Sub Macro1()
  vligne = Range("F65536").End(xlUp).Row + 1
  If vligne < 3 Then vligne = 3   ' Pour la 1ère fois si rien en colonne F
  Range("D2:D21").Copy
  Range("F" & vligne).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
              SkipBlanks:=False, Transpose:=True

  Application.CutCopyMode = False

  ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Clear
  ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Add Key:=Range("F" & vligne & ":Y" & vligne) _
      , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
  With ActiveWorkbook.Worksheets("Feuil1").Sort
      .SetRange Range("F" & vligne & ":Y" & vligne)
      .Header = xlGuess
      .MatchCase = False
      .Orientation = xlLeftToRight
      .SortMethod = xlPinYin
      .Apply
  End With
  Range("D1").Select
End Sub

bonjour banzai64

c'est parfait

merci