Private Sub CommandButton2_Click() ' ENREGISTRER LES MODIFICATIONS
Me.ListView1.ListItems(CHOIX_ITEM).Text = Me.Controls("TextBox" & 1).Value ' DANS LA LISTVIEW
For i = 1 To Me.ListView1.ColumnHeaders.Count - 2
Me.ListView1.ListItems(CHOIX_ITEM).ListSubItems(i).Text = Me.Controls("TextBox" & i + 1).Value
Next i
For i = 5 To ActiveSheet.Range("A65536").End(xlUp).Row ' DANS LA FEUILLE
If ActiveSheet.Cells(i, 1).Value = PRENOM And ActiveSheet.Cells(i, 2).Value = NOM 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