Dim DecSep As String
Dim strInférieur As String, strSupérieur As String
Dim plagehor As Worksheet
'Séparateur décimal de l'application
DecSep = Application.DecimalSeparator
Set plagehor = Sheets("Parametre")
strInférieur = CStr(plagehor.Range("B10").Value)
strSupérieur = CStr(plagehor.Range("B11").Value)
If DecSep <> "." Then
strInférieur = Replace(strInférieur, DecSep, ".")
strSupérieur = Replace(strSupérieur, DecSep, ".")
End If