Indicer Label et Textbox Exemple:label(L) et textbox(L)

Bonjour,

Dans la boucle de la macro Private Sub ComboBox1_Change(), je voudrais indi=
cer les label et les textbox pour écrire dans:
Label1 et Textbox1
Label2 et Textbox2
etc

J'ai à l'écriture de :
TextBox & (L) = Cells(i, no_colonne).Value
Label & (L) = Cells(i, 2).Value

le message d'erreur suivant: "erreur de compilation" et "Attendu: Expressio=
n"

Comment puis-je solutionner le problème.

Merci
JP


Private Sub UserForm_Initialize()
nb = Sheets("Feuil1").Range("AE3").Value
For i = 4 To nb
ComboBox1.AddItem Sheets("Feuil1").Cells(3, i)
Next i
End Sub

Private Sub ComboBox1_Change()
'ListBox1.Clear
Dim no_colonne, nb, L As Integer
no_colonne = ComboBox1.ListIndex + 4
nb = Cells(9, 2).End(xlDown).Row
L = 1
For i = 9 To (nb - 7) * 9 Step 9
If Cells(i, no_colonne) <> "" Then
' ListBox1.AddItem Sheets("Feuil1").Cells(i, no_colonne).Value '=
ComboBox1.ListIndex = 0
MsgBox " i = " & i & " N° colonne = " & no_colonne
TextBox & (L) = Cells(i, no_colonne).Value
Label & (L) = Cells(i, 2).Value
L = L + 1
Else
End If
Next i
End Sub