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