aide sur macro VBA

[tapha20]

bonjour,

quelqu'un pourrait-il m'aider sur cette macro en VBA??

Je résume: cette macro permet de tronsfromer des données avec une rechercheV, le souci est que je dois appliquer cette formule sur toutes les ligne d'excel, car je travaille avec une base de données mise à jour chaque semaine.j'ai déjà fait défiler la sourie jusqu'à un nombre mais je voudrais que cette formule s'applique sur toutes les lignes de la colonne.

Voilà la macro: (les trois points "..." cela veut dire une continuation, j'ai supprimé quelques données, problème d'espace)


End With
Range("E2:E4").Select
ActiveWindow.LargeScroll ToRight:=-1
Rows("1:1").RowHeight = 54.75
Rows("1:1").RowHeight = 48.75
Rows("1:1").RowHeight = 42.75
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 3
Range("E2").Select
Sheets("TYPE_DEVIS").Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-2],Sigle_Devis!R1C1:R40C2,2,FALSE)"
Range("E2").Select
Selection.AutoFill Destination:=Range("E2:E2295"), Type:=xlFillDefault
Range("E2:E2295").Select
ActiveWindow.LargeScroll Down:=-14
ActiveWindow.ScrollRow = 2026
ActiveWindow.ScrollRow = 2006
ActiveWindow.ScrollRow = 1926
ActiveWindow.ScrollRow = 1475
...

ActiveWindow.ScrollRow = 1063
ActiveWindow.ScrollRow = 1043
Columns("D😀").ColumnWidth = 31.14
Columns("D😀").ColumnWidth = 37.71
Columns("D😀").ColumnWidth = 34
ActiveWindow.
....
ActiveWindow.ScrollRow = 140
ActiveWindow.ScrollRow = 101
ActiveWindow.ScrollRow = 28
ActiveWindow.ScrollRow = 1