Private Sub TextBox1_AfterUpdate()
' après validation de la saisie du matricule
Dim i As Integer, DercellA As Long
DercellA = Range('base!A1').End(xlDown).Row
i = ligne
If i > DercellA Then i = 1
TextBox2.Value = Cells(i, 2)
TextBox3.Value = Cells(i, 3)
Range('Feuil2!A5') = TextBox1.Value
TextBox4.Value = Cells(i, 4)
TextBox5.Value = Cells(i, 5)
TextBox6.Value = Cells(i, 6)
TextBox7.Value = Cells(i, 7)
TextBox8.Value = Cells(i, 8)
TextBox9.Value = Cells(i, 9)
TextBox10.Value = Cells(i, 10)
If i = 1 Then MsgBox ('Matricule non trouvé')
End Sub