Option Explicit
Dim LO As ListObject, VLgn(), LCou As Long
Private Sub UserForm_Initialize()
Set LO = Feuil16.ListObjects(1)
Me.ComboBox1.List = LO.ListColumns(1).DataBodyRange.Value
End Sub
…
LCou = ComboBox1.ListIndex + 1
VLgn = LO.ListRows(LCou).Range.Value
TBxNom.Text = VLgn(1, 2)
TBxPrénom.Text = VLgn(1, 3)
etc.
…
LO.ListRows(LCou).Range.Value = VLgn
…
LO.ListRows.Add.Range.Value = VLgn