Controls et variables

Bonjour le Forum,
J'ai récupéré dans différentes Démos des bouts de codes et j'ai pu avoir l'aide de queques uns d'entres vous, mais il y a quelquechose que je n'arrive pas à fire fonctionner les controls avec des variables. Pourriez vous m'aider SVP?

Dim Y As Byte

With Me.ListBox6
.AddItem Me.ListBox3.List(Me.ListBox3.ListIndex, 1)
Select Case Y
Case 1
'ce qui est en dur fonctionne
.Column(1, .ListCount - 1) = Me.ListBox4.List(Me.ListBox4.ListIndex, 1)

.Column(Y, .ListCount - 1) = Me.Controls('ListBox' & Y + 3).List(Me.Controls('ListBox' & Y + 3).ListIndex, 1)
Case 3
.Column(Y, .ListCount - 1) = Me.Controls('ListBox' & Y + 1).List(Me.Controls('ListBox' & Y + 1).ListIndex, 3)
End Select
End With