Bonjour
Une autre méthode, en VBA
Private Sub Worksheet_Calculate()
ActiveSheet.Shapes("Rectangle 5").Select
Selection.Characters.Text = Chr(10) & Format(Range("c9").Value, "# ###,00 €")
Selection.Characters.Font.Bold = True
Range("c9").Select
End Sub
Cette macro se lance des qu'il y a un calcul sur la feuille
agrandi un peut ton rectangle pour que le montant soit centré, sinon retire le chr(10).
Salut
Hervé