Private Sub ComboBox1_Change()
Dim L_drligne As Long
Dim c As Range
Dim ent As Integer
L_drligne = Sheets("fournisseurs").Range("a65000").End(xlUp).Row
For Each c In Sheets("fournisseurs").Range("a2:a" & L_drligne)
If c Like ComboBox1 Then ent = c.Row
Next
If ent = 0 Then Exit Sub
TextBox4 = Sheets("fournisseurs").Cells(ent, 2) 'contacts'
TextBox5 = Sheets("fournisseurs").Cells(ent, 3) 'téléphone'
TextBox6 = Sheets("fournisseurs").Cells(ent, 4) 'fax'
TextBox45 = Sheets("fournisseurs").Cells(ent, 5) 'mail'
With Sheets("demande")
Range("l13").Value = ComboBox1.Value 'fournisseurs'
Range("q17").Value = TextBox5.Value 'telephone'
Range("r17").Value = TextBox6.Value 'fax'
Range("l16").Value = TextBox4.Value 'contact'
Range("l20").Value = TextBox45.Value 'email'
Range("l18").Value = Range("s17").Value
End With
End Sub