Private Sub TextBox1_AfterUpdate()
If WorksheetFunction.CountIf(Sheets("BVM BDX").Range("a:a"), Me.TextBox1.Value) < 500 And WorksheetFunction.CountIf(Sheets("BVM BDX").Range("a:a"), Me.TextBox1.Value) > 6500 Then
MsgBox "UF minimum 500 ml ou inférieur 6 500 ml", vbInformation + vbOKOnly, "UFC IMPOSSIBLE"
End If
With Me
.TextBox2 = Application.WorksheetFunction.VLookup(CLng(Me.TextBox1), Sheets("BVM BDX").Range("BVM"), 2, 0)
.TextBox3 = Application.WorksheetFunction.VLookup(CLng(Me.TextBox1), Sheets("BVM BDX").Range("BVM"), 3, 0)
End With
End Sub