'Appel de la routine avec comme argument .range("AB3").select
Call routine(.range("AB3").select)
'suite du code
.range("AC3:BA3".Autofill .Range("AC3:BA6")
End if
'routine appeler routine,le nom choisi ici routine peut être différent
Sub routine(r as range)
ActiveCell.offset(0,1).FormulaR1C1 = "=VLOOKUP(RC1,'Tickers List'!R2C1:R150C43,33,False)"
Dim i as byte
For i = 2 to 25
i= i + 28
ActiveCell.Offset(0,i).FormulaR1C1="BDH(RC29,""PX_LAST"",R2C" & i & ",R2C" & i & ")"
Next
End Sub