Macro pour generer des arrondis

Bonjour,

J'ai une macro pour calculer des arrondis : les données viennent d' un tableau croisé

Sub KE()
    ActiveCell.FormulaR1C1 = "=ROUND(RC[-4]/1000,0)"
    Range("H5").Select
    Selection.AutoFill Destination:=Range("H5:H15"), Type:=xlFillDefault
    Range("H5:H15").Select
    Range("H16").Select

End Sub

Je souhaite la modifier car mon tableau croisé évolu et le numbre de lignes changent

Le donnée du tableaux sont en colonne D5 à D..... et je souhaite mes arrondis en colonne H5 à H....

Quelqu'un peut il me donner un coup de main pour modifier le code

Merci

Bonjour

Dans le cas ou il n'y a rien d'inscrit dans la colonne D en dessous de tes chiffres à arrondir

Sub KE()
  Range("H5").FormulaR1C1 = "=ROUND(RC[-4]/1000,0)"
  Range("H5").AutoFill Destination:=Range("H5:H" & Range("D65536").End(xlUp).Row), Type:=xlFillDefault
End Sub

Bonjour,

Merci pour ton aide cela fonctionne

Bon après midi