Création algo VBA

Bonjour,

Pouvez-vous m’aidez à compléter cette algorithme de façon à ce qu’il réponde à la consigne ?

Sub exam()

Const TMAX = 100

Dim n As Integer

Dim i As Integer

Dim somme As Double

Dim t(1 To TMAX) As Integer

Dim x As Integer

n = InputBox("Entrer le nombre de valeur que contient le tableau, nombre compris entre 1 et 100")

While n > 100 Or n < 1

n = InputBox("Entrer le nombre de valeur que contient le tableau, nombre compris entre 1 et 100")

Wend

For i = 1 To n

t(i) = InputBox("Entrer une valeur du tableau, nombre compris entre 1 et 20")

While t(i) > 20 Or t(i) < 0

t(i) = InputBox("Entrer une valeur du tableau, nombre compris entre 1 et 20")

End Sub

Merci d’avance !!