Bonjour
une petite modife pour h2so4
Nv = Val(Replace(texte, Unite, ""))
Function convertir(texte)
Unite = Right(texte, 1)
Nv = Val(Replace(texte, Unite, ""))
Select Case Unite
Case "K"
Nv = Nv * 1000
Case "M"
Nv = Nv * 1000000
Case Else
Nv = texte * 1
End Select
convertir = Nv
End Function
A+
Maurice