Private Sub ComboBox2_Change()
Dim E As Range
For i = 6 To 7
Controls("TextBox" & i).Enabled = False
Next i
Set E = Sheets("Feuil1").Cells.Find(What:=ComboBox2)
If Not E Is Nothing Then
With Me
.TextBox6.Value = Format(E.Offset(12, 0), ".€")
.TextBox7.Value = Format(E.Offset(13, 0), ".€")
End With
End If
End Sub