Bonjour,
Private Sub ComboBox1_Change()
Dim n%
n = ComboBox1.ListIndex + 2
With Worksheets("Stock instruments")
If n > 1 Then
TextBox13.Value = .Cells(n, 3).Value
TextBox14.Value = .Cells(n, 4).Value
Else
TextBox13.Value = ""
TextBox14.Value = ""
End If
End With
End Sub
Cordialement.