Récuperer des données entre userform et base de données

Option Explicit
Dim TNotes()

Private Sub ComboBox1_Change()
Dim N As Long
TNotes = [ELEVES].Rows(Me.ComboBox1.ListIndex + 1).Offset(, 1).Resize(, 125).Value
For N = 1 To 4 ' 125
   Me.Controls("TextBox" & N).Text = TNotes(1, N)
   Next N
End Sub

Private Sub CommandButton1_Click()
Dim N As Long
For N = 1 To 4 ' 125
   TNotes(1, N) = CDbl(Me.Controls("TextBox" & N).Text)
   Next N
[ELEVES].Rows(Me.ComboBox1.ListIndex + 1).Offset(, 1).Resize(, 125).Value = TNotes
End Sub

Private Sub CommandButton2_Click()
Unload Me
End Sub