Private Sub CommandButton1_Click()
Dim i, j As Integer
Dim c As Range
For i = 1 To 7
If Controls("TextBox" & i) <> "" Then j = j + 1
Next
With Sheets("Fournisseurs")
drligne = .[A:A].Find(Selection(1, 0)).Row
For Each c In .Range("a2:a" & drligne)
If c Like ComboBox1.Text Then
For i = 0 To j - 1
If c = ComboBox1 And c.Offset(i, 0) = "" And c.Offset(i, 1) <> "" Then c.Offset(i, 1) = ""
If c.Offset(i, 0) <> "" And c.Offset(i, 0) <> ComboBox1.Text Then Rows(c.Offset(i, 0).Row & ":" & c.Offset(i, 0).Row).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
c.Offset(i, 1) = Controls("TextBox" & i + 1)
If c.Offset(i + 1, 0) = "" Then c.Offset(i + 1, 1) = ""
Next i
Exit For
End If
Next c
End With
Application.EnableEvents = True
End
End Sub