Private Sub CommandButton1_Click()
Dim der_ligne&, j%
For i = 4 To Range("B65536").End(xlUp).Row
If Cells(i, 2).Value = Me.TextBox2.Value And Cells(i, 3).Value = Me.TextBox3.Value Then
For j = 2 To 4
Cells(i, j).Value = Controls("TextBox" & j).Value
Next j
Exit Sub
End If
Next i
Unload UserForm2
ActiveSheet.Protect "", DrawingObjects:=True, Contents:=True, Scenarios:=True
ActiveWorkbook.Save
End Sub