Private Sub ComboBox1_Change()
If ComboBox1 = "" Then
'MsgBox " Vide !"
Else
[B][COLOR=blue]Range("A:A").[/COLOR][/B]Find(What:=ComboBox1.Value, After:=ActiveCell, LookIn:=xlValues, LookAt:= _
xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=False).Activate
Label5.Caption = ActiveCell.Offset(0, 2)
Label6.Caption = ActiveCell.Offset(0, 6)
TextBox2 = ActiveCell.Offset(0, 1)
End If
End Sub