Private Sub saisie_Click()
Range('B65536').End(xlUp).Activate
DerLigne = ActiveCell.Row
Txt_dernier_numéro = ActiveCell.Offset(0, -1).Value
'vide tous les Textbox et les active'
For x = 1 To 8
Me.Controls('Textbox' & x).Value = ''
Me.Controls('Textbox' & x).Locked = False
Next
Textbox1.SetFocus
End Sub