bonjour
si y'a pas de virgule il faut corriger la macro
virg = InStr(1, nombre, ',') 'instruction à modifier si '.' décimal au lieu de ',')
entier = Int(nombre)
If virg <> 0 Then
fraction = Left(Right(nombre, Len(nombre) - virg), 2)
Else
fraction = 0
End If