Private Sub Bt1_Click()
Dim Lob As ListObject, Lig As Long
Dim R As Range
Set Lob = [Tableau13].ListObject
Set R = Lob.ListColumns("Matricule").DataBodyRange.Find(T1, LookIn:=xlValues, lookat:=xlWhole)
If Not R Is Nothing Then
Lob.Parent.Unprotect "Paritec"
Lig = R.Row - Lob.Range.Row
Lob.ListColumns("Nom & Prenoms").DataBodyRange.Rows(Lig) = T2
Lob.ListColumns (".............").DataBodyRange.Rows(Lig) = ....
...
End If
Unload Me
End Sub