L’extrait de code suivant contient une erreur. On vous demande de l'identifier, l'expliquer et de proposer

une correction de ce code.

Option Explicit

Sub Jeu_dé()

Dim i As Byte, dés As byte, cumul_dé As

Byte

cumul_dé = 0

i = 0

Do

            Randomize

            dé = Int(Rnd() * 6) + 1

            i = i + 1

            MsgBox "Le lancer " & i

& " du dé, a pour valeur  :

" & dé

 Loop While cumul_dé <= 20

MsgBox "Vous avez atteint 20 points

en " & i & " lancer de dé"

End Sub