Tutoriel macro excel erreur?

Bonjour
J'ai trouve un tutoriel tres bien fait sur les macros excel:
http://www.info-3000.com/vbvba/

Mais il semblerait qu'il y aie un probleme dans la section tableaux.
J'ai teste une macro de tableaux et il y a une erreur qui est generee.

Sub TableauV6()

  Dim Etagere() As Integer

  Dim NombreCase As Integer

  NombreCase = Val(InputBox("Combien d'éléments voulez-vous ?"))

  ReDim Etagere(NombreCase)

  For compteur = 1 To NombreCase

    Etagere(compteur) = InputBox("Entrez le nombre N°" & compteur & " : ")

  Next

  For compteur = 1 To NombreCase

    Selection.TypeText Etagere(compteur)

    Selection.TypeParagraph

  Next

End Sub

L'erreur apparait apres avoir saisi le nombre d'elements et les elements dans chaque case, par exemple:
2 elements, 100 dans le numero 1 et 200 dans le numero 2.

Paeil pour celle-ci:

Sub TableauV7()

  Dim Etagere() As Integer

  Dim NombreCase As Integer

  NombreCase = Val(InputBox("Combien d'éléments voulez-vous ?"))

  ReDim Etagere(NombreCase)

  For compteur = 1 To NombreCase

    Etagere(compteur) = InputBox("Entrez le nombre N°" & compteur & " : ")

  Next

  For compteur = 1 To NombreCase

    Selection.TypeText Etagere(compteur)

    Selection.TypeParagraph

  Next

  Dim LePlusGrand As Integer

  LePlusGrand = 0

  For compteur = 1 To NombreCase

    If Etagere(compteur) > LePlusGrand Then 

      LePlusGrand = Etagere(compteur)

    End If

  Next

  Selection.TypeText "Le plus grand est " & LePlusGrand

End Sub

Je crois que l'erreur vient de Selection.TypeText mais je comprends pas pourquoi.
Qqn peut m'aider?