XL 2019 VBA-Tirage aléatoire avec condition else qui plante

[VBA_Florent]

Bonjour,

Afin de m'améliorer en anglais je me suis fait un petit programme pour 100 mots. Une inputbox s'ouvre et si la traduction est bonne, le mot se marque en vert dans la collone E.
Et si le mot est faux il se met en rouge, mais voila quand je mets else <> de la valeur le programme plante et m'insère 100 lignes en rouge.
Très cordialement.

Private Sub CommandButton1_Click()
Dim t(1 To 100)
j = 0
For i = 1 To 100
If Cells(i, 1) <> "" Then
j = j + 1
t(j) = Cells(i, 1)
End If
Next i
Randomize
Z = InputBox(t(Int(j * Rnd) + 1))

For i = 1 To 100
If Z = Cells(i, 2) Then
MsgBox "Bravo"
Cells(1, 5).Insert
Cells(1, 5).Interior.ColorIndex = 4
Cells(1, 5) = Z
End If
Next i

End Sub