Private Sub TextBox1_afterupdate()
On Error Resume Next
If Application.Match(UserForm1.TextBox1.Value, Sheets("Feuil1").Range("C:C"), 0) = 0 Then
MsgBox "erreur sur le type du salarié"
Else
N = Application.Match(UserForm1.TextBox1.Value, Sheets("Feuil1").Range("C:C"), 0)
UserForm1.TextBox2 = Cells(N, "B")
End If
End Sub