Private Sub UserForm_Initialize()
C1.List = Range("FA2", [FA65000].End(xlUp)).Value
End Sub
Private Sub C1_Change()
If C1.ListIndex < 0 Then T1 = "": Exit Sub
T1 = Cells([FA:FA].Find(C1).Row, "FB")
End Sub
Private Sub UserForm_Initialize()
C1.List = Feuil1.Range("fa2:fb" & Feuil1.Cells(Rows.Count, "fa").End(3).Row).Value
End Sub
Private Sub c1_Click()
T1 = C1.List(C1.ListIndex, 1)
End Sub