Private Sub ComboBox1_Change()
Dim cell As Range
Dim produits As String
Label10 = "Produit : " & ComboBox1
produits = ComboBox1
With Sheets("liste")
For Each cell In .Range("A13:A" & .Range("A65536").End(xlUp).Row)
If cell.Value = produits Then
T1 = cell.Offset(0, 1).Value
T2 = cell.Offset(0, 2).Value
T9 = cell.Offset(0, 3).Value
End If
Next
End With
End Sub