"0,321" ce n'est pas la même chose.(qui contient: 0,321)
Public Sub Reconvertir(ByVal Feuille as WorkSheet, _
ByVal Plage as Range)
Dim shtFeuille as WorkSheet
Dim rngPlage as Range
set shtFeuille = Iif(Not Feuille is Nothing, Feuille, ActiveWorkbook.ActiveSheet)
Set rngPlage = Iif(Not Plage is Nothing, Plage, shtFeuille.UsedRange)
With rngPlage
.Formula = .Value
End With
End Sub