Private Sub CommandButton1_Click()
UserForm1.Show
Range("B2").Select
ActiveCell.FormulaR1C1 = _
"=IF(RC1="""","""",VLOOKUP(RC[-1],TABLEAU!R1C1:R92C2,2,FALSE))"
Range("B2").Select
Selection.AutoFill Destination:=Range("B2:B50")
Range("B2:B50").Select
Range("A1").Select
End Sub