Bonsoir Clémence et le forum
Ajouter ce code dans ta feuille contenant la cellule A1 en question, ça devrait t convenir.
Private Sub Worksheet_Calculate()
Range("A1").ClearComments ' Effacer commentaire existant
Range("A1").AddComment ' Ajouter nouveau commentaire
Range("A1").Comment.Visible = False ' Commentaire masqué
' Equivalent en francs, arrondi à 2 chiffres
Range("A1").Comment.Text Text:=" ---> " & CStr(Round(Range("A1").Value * 6.55957, 2)) & " Frs"
End Sub
@+