Re : recopie de formule ans une macro
Re,
voici le code du fichier joint :
Dans E4 et E65536 le E correspond à la colonne à tester (pour trouver la derniere cellule.
Offset(0, 5), le 5 correxpond au decalage par rapport à E. A partir de J se trouve à 0,1,2,3,4,5 colonnes (on commence par 0).
A toi d'adapter. Si tu veux tester la colonne D, remplacer E par D et 5 par 6.
Sub test2()
Set MaZone = Range("E4:" & Range("E65536").End(xlUp).Address).Offset(0, 5)
Range("J4").FormulaR1C1 = "=RC[-6]/RC[-5]*30"
Range("J4").AutoFill Destination:=MaZone
With MaZone
.NumberFormat = "#,##0"
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
End With
End Sub