Private Sub CommandButton1_Click()
Dim C As Range
For n = 2 To 4: Me("Textbox" & n) = "": Next 'si autre saisie
Set C = [R:R].Find(TextBox1, , , 1)
If C Is Nothing Then
Set C = Nothing
MsgBox "pas de trace !", vbCritical, "Attention..."
Else
TextBox2 = C(1, -4)
TextBox3 = Format(C(1, 9), "0##-000"" ""00"" ""00")
TextBox4 = C(1, 14)
End If
End Sub