Modifier, créer données etc. dans TextBox

Private Sub UserForm_Initialize()
Dim Plg As Range 'déclare la variable Plg
Dim i As Byte 'déclare la variable i
 
With Sheets("Feuil2") 'prend en compte l'onglet "Feuil2"
    .Select 'sélectionne
    Set Plg = .Range("A2:A" & .Range("A65536").End(xlUp).Row) 'définit la variable Plg
End With 'fin de la prise en compte de l'onglet "Feuil2"
 
ComboBox1.List = Plg.Value 'alimente la ComboBox1
End Sub

Private Sub ComboBox1_Change() 'au changement de la ComboBox1
Dim i As Byte  'déclare la variable i
 
If ComboBox1.ListIndex > -1 Then 'si une nom de la liste est choisi
    'définit la variable Ligne
    Ligne = ComboBox1.ListIndex + 2 'attention le premier de la liste à 0 comme index
    For i = 1 To 16 'boucke sur les 16 textboxes
        Me.Controls("TextBox" & i).Value = Cells(Ligne, i + 1) 'renseigne la textbox
    Next i 'prochaine textbox de la boucle
Else 'si un nouveau nom est édité
    Ligne = .Range("A65536").End(xlUp).Row + 1
End If
End Sub
 
Private Sub cmbMVALID_Click() 'bouton "Valider"
Dim i As Byte  'déclare la variable i
 
Cells(Ligne, 1) = ComboBox1.Value 'place la donnée de la ComboBox1 dans le tableau
For i = 1 To 16 'boucle sur les 16 textboxes
    Cells(Ligne, i + 1) = Me.Controls("TextBox" & i).Value 'renseigne le tableau
Next i 'prochaine textbox de la boucle
Unload Me
End Sub