incomprehension de code

Bonjour à tous,
Qui pourrait me donner la significaton de ce petit morceau de code svp?

Code:

---

1 2 3 4 5 6 7 8

Range("A2:B200") Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTop Bottom, _ DataOption1:=xlSortNormal ActiveWindow.SmallScroll down:=24 Range("D42").Select ActiveWindow.SmallScroll Down:=-51 Range("D16").Select

---

Ce code ne veut peut être rien dire en dehors de son contexte, toujours est il que je ne le comprend pas

Bonjour,

il s'agit tres probablement d'une macro enregistré, chaque étape manuelle est écrite en VBA, comme le fait de descendre le scrolling (ActiveWindow.SmallScroll down:=24) puis de selectionner une cellule (Range("D42").Select) puis de remonter le scrolling (activeWindow.SmallScroll Down:=-51 )et d'en selectionner une autre (Range("D16").Select) etc ...

Ok donc il s'agit bien d'un code créé par l'enregistreur de macro.

Merci beaucoup:)