Private Sub ComboBox1_Change()
Dim ligne As Range
Set ligne = Sheets("Base_Article").Cells.Find(ComboBox1.Value, , xlValues, xlWhole, , , False)
If ligne Is Nothing Then
MsgBox "Code non reconnu", , "Erreur"
Else
TextBox2.Value = Sheets("Base_Article").Cells(ligne.Row, 25).Value
End If
End Sub