vba : arrondir cellule active

Bonjour

ça c'est pour modifier le FORMAT d'affichage.
mais ATTENTION, la valeur de la cellule concerve toujours les chiffres 'cachés'.

Private Sub arrondi()
'saisie 123,36999 en A1
Dim valeur As Currency '4 chiffres après la virgule

valeur = Worksheets("Feuil1").Range("A1").Select
Selection.NumberFormat = "#,##0.00"

end sub

Est-ce que ça suffit ou bien faut-il que 123,36999 devienne 123,37?

Merci de ta réponse , mais je souhaiterais que la valeur soit effectivement arrondie , et pouvoir appliquer l'instruction à la cellule active quel que soit sa place...
Quelque chose du genre ActiveCell.Value = "=Round(ActiveCell.Value,2)
mais je n'arrive pas à rentrer la valeur numérique dans Round

Merci si tu peux m'éclaircir
jy

bonjour Jean-Yves , bonsoir Peper-Eliot

si j'ai bien compris ta demande , tu peux essayer

Sub Arrondir()
ActiveCell = Application.Round(ActiveCell, 2)
End Sub


bonne soiree
michel