Private Sub CommandButton1_Click()
Dim I As Byte 'déclare la variable I
For I = 1 To 8 'boucle sur les 8 textboxes
Sheets(I + 1).Name = Me.Controls("texTbox" & I).Value 'attribue la valeur de la textbox I au nom de l'onglet I+1
Next I 'prochaine textbox de la boucle
End Sub