Private Sub ComboBox1_AfterUpdate()
Dim L As Integer, i As Integer, ws As Worksheet
Dim fmt As String
Set ws = Sheets("Produits")
L = ws.Range("B65536").End(xlUp).Row
For i = 2 To L
If ws.Range("B" & i) = Fact.ComboBox1 Then
Fact.TextBox2 = Format(ws.Range("D" & i), "##0.00 €")
Fact.ComboBox2 = ws.Range("A" & i)
End If
Next
End Sub