Private Sub UserForm_Initialize()
Dim r As Range
Set r = Sheets("BDD_Legends").Range("A1:N200").Find(Me.Label10.Caption, , xlValues, xlWhole)
If Not r Is Nothing Then
Me.Label11.Caption = r.Offset(3, 0).Value
Else
Me.Label11.Caption = ""
End If
End Sub