Bonjour,
J'ai un petit code que j'ai fait avec l'enregistreur mais je voudrais continue jusqu'à la dernière ligne non vide.
je me suis arrete à cette exemple mais je voudrais automatiser la tâche
Merci d'avance pour les helpers de passage
Range("A2").Select
ActiveCell.FormulaR1C1 = "0"
Range("A3").Select
ActiveCell.FormulaR1C1 = "0.001"
Range("A4").Select
ActiveCell.FormulaR1C1 = "0.002"
Range("A2:A4").Select
Selection.AutoFill Destination:=Range("A2:A6"), Type:=xlFillDefault
Range("A2:A6").Select
Selection.AutoFill Destination:=Range("A2:A60347")
Range("A2:A60347").Select
ActiveWindow.SmallScroll Down:=-21