Private Sub txtCoNb_AfterUpdate()
Dim plage As Range, cel As Range
Set plage = Range(Worksheets("Data").Cells(4, 2), Worksheets("Data").Cells(19, 2))
For Each cel In plage
If cel.Value = txtCoNb.Value Then
txtCoName.Value = WorksheetFunction.VLookup(CLng(txtCoNb.Value), Range("ID_Nb_Name"), 2, False)
Else
message8 = " :@:@:@"
MsgBox message8
End If
Next cel
End Sub