modifier listview et feuille en même temps

[dindin]

bonjour
j'arrive à ajouter une réservation , mais je n'arrive à pas à la modifier et enregistrer ces modifications sur le listview et la feuille en même temps
ce code ne fonctionne pas

Private Sub CommandButton10_Click() 'enregisterer modification
Dim i As Integer
Dim j As Integer
Me.ListView1.ListItems(CHOIX_ITEM).Text = Me.Controls("TextBox" & 1).Value ' DANS LA LISTVIEW
For i = 1 To Me.ListView1.ColumnHeaders.Count - 1
Me.ListView1.ListItems(CHOIX_ITEM).ListSubItems(i).Text = Me.Controls("TextBox" & i + 1).Value
Next i

For i = 2 To ActiveSheet.Range("A65536").End(xlUp).Row ' DANS LA FEUILLE
   If ActiveSheet.Cells(i, 2).Value = Nom And ActiveSheet.Cells(i, 3).Value = Prenom Then
      For j = 1 To ActiveSheet.UsedRange.Columns.Count
      ActiveSheet.Cells(i, j).Value = Me.Controls("TextBox" & j).Value
      Next j
   End If
Next i
End Sub

pour info mes textbox sont numérotés de 1 à 24

j'ai besoin de votre aide SVP


merci d'avance