Private Sub CommandButton3_Click()
If txtnuméroaffaire = "" Then Exit Sub
If IsNumeric(txtnuméroaffaire) = False Then
MsgBox " numéro d'affaire non documenté"
Exit Sub
End If
On Error Resume Next
LigneNumAffaire = Application.WorksheetFunction _
.Match(CLng(txtnuméroaffaire), Worksheets("Data").Range("A1:A100000"), 0)
If Err <> 0 Then
MsgBox " numéro d'affaire inonnu"
Exit Sub
End If
On Error GoTo 0
With Sheets("Data")
Me.txt1 = .Cells(LigneNumAffaire, 8).Text
' faire ici les autres textbox
End With
End Sub