Dim x As String, n As Double
Do
x = InputBox("Veuillez saisir la taille de la personne :", "Taille en cm limitée à 200", x)
If x = "" Then Exit Sub
n = Val(Replace(x, ",", ".")) 'remplace la virgule par le point
Loop While n > 200 Or n <= 0
Range("G9") = n