boucler sur deux for next .

bonjour le forum

j ai écris une macro qui fonctionne bien , mais qui me semble bien cochonne
je pense que l'on peut boucler , mais je ne trouve pas l astuce ..
voici un extrait
Private Sub CommandButton4_Click()
TextBox26.Value = Label1.Caption
TextBox27.Value = Label2.Caption
TextBox28.Value = Label3.Caption
TextBox29.Value = Label4.Caption
TextBox30.Value = Label5.Caption
TextBox31.Value = Label6.Caption
TextBox32.Value = Label7.Caption
................
TextBox50.Value = Label25.Caption
End Sub

j essaye avec

Dim I As Byte
Dim x As Byte
For x = 1 To 25
For I = 26 To 50
Me.Controls("textbox" & I).Value =Me.Controls("label" & x).Caption
next
next
End Sub

bien sur ça beugue
auriez vous la solution , une voie .... je vous en remercie d'avance

bonne soirée
E et F