Sub deviner3()

On Error GoTo traiteerreur
Dim nombre%, reponse, rep%, n As Integer
Dim plus As String

Randomize
nombre% = Int((100 - 1) * Rnd)
plus = ""
reponse = InputBox("entrez un nomero :")
rep% = Fix(Abs(reponse))
n = 1

Do While rep% <> nombre%
    If rep% > nombre% Then plus = "plus petit" Else plus = "plus grand"
    reponse = InputBox("entrez un nombre " & plus & ": ")
    rep% = Fix(Abs(reponse))
    n = n + 1
Loop

MsgBox ("vous avez devine en " & n & " coups")
Exit Sub

traiteerreur:
reponse = InputBox("entrez un nomero :")
Resume 0
End Sub