Problème valeur supérieure et inférieure

Bonjour,

J'ai un petit soucis! Ma macro fonctionne plutôt bien, mais dès que la valeur est inférieure à 100, la macro me dit que le montant est supérieur à 285 et à l'inverse lorsque la valeur est supérieure à 1000, la macro me dit que le montant est inférieure à 285. Est-ce que vous auriez une solution?

Merci d'avance! :)

Sub Msgbox()

Dim choix As Integer

choix = MsgBox("Est-ce que la valeur est supérieure ou inférieure à 285?", 4, "Valeur")

If choix = vbYes Then

If Sheets(1).Range("I" & Rows.Count).End(xlUp).Value > "285" Then

MsgBox ("La valeur est supérieure")

End If

If Sheets(1).Range("I" & Rows.Count).End(xlUp).Value < "285" Then

MsgBox ("La valeur est inférieure")

End If

If choix = vbNo Then

End If
    End If

End Sub

Bonsoir à tous !

Manhalo, en enlevant les guillemets comme ceci 285

Bonne soirée

Bonsoir,

ahaha parfait, effectivement ça marche beaucoup mieux! Merci beaucoup!

Bonne soirée