VBA - Script - Outil pour apprendre du voc

Sub Vocabulaire()
Dim Mots() As String, Traduction As String
Dim Cpt As Integer, BonneTraduc As Integer
Dim DrLig As Long, Lign As Long
Const NombreDeMotsAtraduire As Integer = 10

ReDim Mots(2, NombreDeMotsAtraduire)
'dans la feuille Feuil2 on a en colonne :
    'A : les mots en Français
    'B : les mots en Allemand
With Sheets("Feuil2")
    DrLig = .Range("A" & Rows.Count).End(xlUp).Row - 1
    For Cpt = 0 To NombreDeMotsAtraduire - 1
        Randomize
        Lign = CInt(Rnd * DrLig) + 1
        Mots(1, Cpt) = .Range("A" & Lign)
        Mots(2, Cpt) = .Range("B" & Lign)
    Next
End With
Cpt = -1
Do While BonneTraduc < NombreDeMotsAtraduire
    If Cpt < NombreDeMotsAtraduire - 1 Then
        Cpt = Cpt + 1
    Else
        Cpt = 0
    End If
    If Mots(1, Cpt) <> "" Then
        Traduction = InputBox(Mots(1, Cpt), "Traduire le mot : ")
        If Traduction = Mots(2, Cpt) Then
            BonneTraduc = BonneTraduc + 1
            Mots(1, Cpt) = ""
        End If
    End If
Loop
MsgBox "Fini!"
End Sub