Essayer la macro de Clément Marcotte modifiée comme suit :

NB : Cette macro a été écrite lors du passage à l'Euro. Elle fonctionne bien entendu avec n'importe quelle autre monnaie.

Sub FrancsRemplaceEuros()
valeur = roundvba(Val(Selection) / 6.55957, 0)
' pour avoir 2 décimales, mettre 2 au lieu de 0
If InStr(Selection, "F") > 0 Then
valeur = valeur & " €"
Selection.Delete
Selection.InsertAfter valeur
End If
End Sub

Function roundvba(donnee, nombredecimales)
facteur = 10 ^ nombredecimales
roundvba = Int((donnee * facteur) + 0.5) / facteur
End Function