cela ne fonctionne pas pour moi
Private Sub ComboBox2_Change()
Dim Nom As String
Dim Ligne As Variant
Nom = Entreedepiece1.ComboBox2.Value
Ligne = Application.Match(Nom, Worksheets("article section peinture").UsedRange.Rows(2).Value, 0)
Entreedepiece1.TextBox8.Value = Cells(Ligne, "D")
End Sub...