table de multipliquation

Bonsoir à tous

j'aimerai faire une table de multiplication en vba pour ma fille en classe de ce1

Pour ce faire des chiffre ce place aléatoirement dans les cellules D13 et H13

1er soucis avec mon code: il n'y en a qu'un seul qui apparait.

En suite j'aimerais mettre un compteur de sorte que 1 bonne réponse = 1 point ; 1 mauvaise= -1 point
voila le code que j'ai commencé

Private Sub commencer1_Click()
Dim plage As Range, cel As Range, alea As Double
Set plage = Range("D13").Select
Set plage = Range("H13").Select

plage.Value = ""
If plage.Count > 4 Then Exit Sub
Randomize
For Each cel In plage
1 alea = WorksheetFunction.RandBetween(1, 4)
If Application.CountIf(plage, alea) Then GoTo 1 Else cel = alea

Next


merci pour votre futur coup de main