bonjour,
C'est un peu difficile car Excel ne fait pas ses arrondi comme ça !
Si tu te contentes de l'arrondi standart, quelque chose comme ça conviendra :
Sub test()
ActiveCell = ActiveCell / 10 ^ 6
ActiveCell.NumberFormat = "0.0" 'ou encore:= "0.0 \M€"
End Sub
Sinon il faudra que tu regardes du coté de ARRONDI.INF
A+