Bonjour
on a
Q4 (modif en rouge):
Sub pluspetit()
Dim x as integer, y as integer, rep as integer, minim as integer, i as integer, score as integer
Dim recommence As string
score=0
i=0
recommence=”O”
While (recommence=”O”)
x=Int(Rnd()*50)
y=Int(Rnd()*50)
if x<y Then
minim=x...