Copier plusieurs textbox dans un tableau Excel

bjr à tous;

mon problème se résume en:

dans un formulaire de saisie de réception des articles déjà commander

I-----------> le nombre des articles varie selon la commande de 1 à 16

j'ai affiché dans une listbox "bon_commande" de même formulaire la bon de commande

devant chaque ligne de ma listebox j'ai un textbox "quantité reçu" que je doit remplir ceux qui sont visibles (selon nombre des lignes de ma listebox)

pour copier la réception dans ma base des mouvement j'ai le code suivant

Private Sub CommandButton2_Click()

Dim nombre_ligne As Integer

Dim ligne As Integer

Dim dl As Integer

If Me.bon_commande.ListCount > 0 Then

'demander une confirmation de consultation

If MsgBox("voulez vous valider la réception?", vbYesNo) = vbYes Then

nombre_ligne = Me.bon_commande.ListCount - 1

For ligne = 0 To nombre_ligne

Sheets("mouvement").ListObjects(1).ListRows.Add

dl = Sheets("mouvement").Range("b9999").End(xlUp).Row

'ajouter nouvelle réception dans la liste de base

Sheets("mouvement").Range("h" & dl) = Me.bon_commande.List(ligne, 0)

Sheets("mouvement").Range("j" & dl) = Me.bon_commande.List(ligne, 3)

Sheets("mouvement").Range("i" & dl) = Me.bon_commande.List(ligne, 4)

Sheets("mouvement").Range("k" & dl) = Me.controls("textbox"&ligne)

Next ligne

End If

Else

MsgBox "pas de reception disponible"

End If

End Sub

[/size]