Boucle While Textbox1 vers colonne1, tb2 vers col2 etc ??

Private Sub CommandButtonvaliderdestination_Click()
Dim goodfeuille As Worksheet


Set goodfeuille = Nothing


''''''''''''''''''''''''''''''''' SELECTION DE LA FEUILLE DE DESTINATION
If obnouvelleintervention = True Then
Set goodfeuille = Workbooks("daalog.xls").Worksheets("NOUVELLE INTERVENTION")
GoTo suite1validerdestination:
End If

If obdevisaetablir = True Then
Set goodfeuille = Workbooks("daalog.xls").Sheets("DEVIS A ETABLIR")
GoTo suite1validerdestination:
End If

If obpieceacommander = True Then
Set goodfeuille = Workbooks("daalog.xls").Sheets("PIECE A COMMANDER")
GoTo suite1validerdestination:
End If




'''''''''''''''''''''''''''''''''' COLLAGE DES DONNEES EN BOUCLE COLONNE
suite1validerdestination:
i = 1


With goodfeuille
lig = goodfeuille.Columns(1).Find("", goodfeuille.Range("A1"), , , xlByRows).Row
While i < 29
.Cells(lig, i) = (tb & i ).Text
''''''''' c'est ici que je bloque ... erreur 
''''' je n'arrive pas à trouver ce qu'il faut mettre pour incrémenter ma tb 
'''''  ( textbox ) de la valeur de i 


i = i + 1
Wend
End With

MsgBox " aaa finiii "