Private Sub But_Modifier_Click()
Application.ScreenUpdating = False
ind = Me.Lbx_Enregist.ListIndex + 1
DeProtege ("Liste_agents")
With Sheets("Liste_agents").ListObjects("t_Noms")
.DataBodyRange(ind, 2) = Me.TextBox1.Value & " " & Me.TextBox2.Value
.DataBodyRange(ind, 3) = Application.Text(Me.TextBox5, "[h]:mm")
End With
LoadLBx2 Me.Lbx_Enregist, Sheets("Liste_agents").ListObjects("t_Noms")
Protege ("Liste_agents")
End Sub