Transformer les montants en euro à 1 million d'euro

Bonjour tous,

Quelle serais la macro permettant de diviser tous les montants de la colonne B sur 1.000.000, afin d'avoir les montants en million d'euro sans recours à la création d'une colonne transitoire.

Crdt

Bonjour

Sub Modifie()
Dim MaCellule As Object
For Each MaCellule In Range("B2", Range("B2").End(xlDown))
If IsNumeric(MaCellule) = True Then
MaCellule.Value = MaCellule.Value / 1000000
End If
Next MaCellule
End Sub

Cordialement

Re,

Merci beaucoup Amadéus

Crdt