Bonjour,
en essayant, j'ai eu un petit soucis avec round
je te propose d'essayer de remplacer
Range("A1").Comment.Text Text:=" ---> " & CStr(Round(Range("A1").Value * 6.55957, 2)) & " Frs"
par
virgule = InStr(1, CStr(Range("A1").Value * 6.55957), ",")
Range("A1").Comment.Text Text:=" ---> " & Left(Range("A1").Value * 6.55957, virgule + 2) & " Frs"
A+
Eric