L’extrait de code suivant contient une erreur. On vous demande de l'identifier, l'expliquer et de proposer

une correction de ce code.

Option Explicit

Sub Tables( )                                                                                          

Dim M( 1 To 100 ) As String, c As String

Dim Cellules As Range                                                                                   

Dim q As Byte

Set Cellules = Range(" A1 : AZ1")

Cellules=""

Do

q = InputBox(" Donnez le nombre des éléments de la table ")

Loop Until q >= 1 And q <= 100

For c = 1 To q

M( c )

= InputBox(" Saisir une chaîne de caractères")

         Cells(1 , c) = M( c )

Next

End Sub