VBA macro text to column

Bonjour,



Je suis novice en matiere de programation mais a l'aide de l'enregistreur auto de macro et de quelques connaissances je tente de monter une macro d'agregation des données.

J'essaye de faire un text to column et en automatique VBA me donne ceci : (voir ci dessous)

Sheets("FINAL FILE").Select
Range("H1").Select
ActiveSheet.Paste
ActiveWindow.ScrollRow = 113
ActiveWindow.ScrollRow = 563
ActiveWindow.ScrollRow = 787
ActiveWindow.ScrollRow = 1349
ActiveWindow.ScrollRow = 2136
ActiveWindow.ScrollRow = 2360
ActiveWindow.ScrollRow = 2810
ActiveWindow.ScrollRow = 2922
ActiveWindow.ScrollRow = 3371
ActiveWindow.ScrollRow = 3484
ActiveWindow.ScrollRow = 3821
ActiveWindow.ScrollRow = 4270
ActiveWindow.ScrollRow = 4383
ActiveWindow.ScrollRow = 4607
ActiveWindow.ScrollRow = 4720
ActiveWindow.ScrollRow = 4832
ActiveWindow.ScrollRow = 5057
ActiveWindow.ScrollRow = 5281
ActiveWindow.ScrollRow = 5394
ActiveWindow.ScrollRow = 5618
ActiveWindow.ScrollRow = 5843
ActiveWindow.ScrollRow = 6068
ActiveWindow.ScrollRow = 6180
ActiveWindow.ScrollRow = 6405
ActiveWindow.ScrollRow = 6742
ActiveWindow.ScrollRow = 6967
ActiveWindow.ScrollRow = 7191
ActiveWindow.ScrollRow = 7304
ActiveWindow.ScrollRow = 7416
ActiveWindow.ScrollRow = 7528
ActiveWindow.ScrollRow = 7641
ActiveWindow.ScrollRow = 7528
ActiveWindow.ScrollRow = 7304
ActiveWindow.ScrollRow = 7191
ActiveWindow.ScrollRow = 6854
ActiveWindow.ScrollRow = 6630
ActiveWindow.ScrollRow = 6293
ActiveWindow.ScrollRow = 6180
ActiveWindow.ScrollRow = 5843
ActiveWindow.ScrollRow = 5506
ActiveWindow.ScrollRow = 5169
ActiveWindow.ScrollRow = 4720
ActiveWindow.ScrollRow = 4270
ActiveWindow.ScrollRow = 3596
ActiveWindow.ScrollRow = 3371
ActiveWindow.ScrollRow = 3034
ActiveWindow.ScrollRow = 2922
ActiveWindow.ScrollRow = 2697
ActiveWindow.ScrollRow = 2585
ActiveWindow.ScrollRow = 2136
ActiveWindow.ScrollRow = 1911
ActiveWindow.ScrollRow = 1799
ActiveWindow.ScrollRow = 1686
ActiveWindow.ScrollRow = 1462
ActiveWindow.ScrollRow = 1349
ActiveWindow.ScrollRow = 1237
ActiveWindow.ScrollRow = 1124
ActiveWindow.ScrollRow = 1012
ActiveWindow.ScrollRow = 900
ActiveWindow.ScrollRow = 787
ActiveWindow.ScrollRow = 675
ActiveWindow.ScrollRow = 563
ActiveWindow.ScrollRow = 338
ActiveWindow.ScrollRow = 226
ActiveWindow.ScrollRow = 1
Application.CutCopyMode = False
Selection.TextToColumns Destination:=Range("H1"), DataType:=xlFixedWidth, _
FieldInfo:=Array(Array(0, 1), Array(10, 1)), TrailingMinusNumbers:=True

Je ne comprend pas le code, qu'est que ca veut dire "ActiveWindow.ScrollRow = 226" et pourquoi cela est t'il repeter plein de fois.

Ma crainte est que la macro s'appliquera sur un nombre de ligne et des données aleatoires, j'ai peur que le text to column ne s'aplique pas sur toute les lignes.

Merci pour votre aide