Sub P1()
Dim x As Integer, y As Integer, i As Integer
x = 15
y = 1
For i = 1 To 4
x = x - y
y = y + 2
[COLOR=red][B]Debug.Print "X=" & x[/B][/COLOR]
[COLOR=red][B] Debug.Print "Y=" & y[/B][/COLOR]
Next
MsgBox (y & " est associé au nombre" & x)
End Sub