Salut l'oiseau bleu,
quelque chose comme ça ?
J'ai changé les noms de tes contrôles TextBox et ComboBox en Info1, Info2,... pour la facilité... et je trie!
J'ai ajouté une première TextBox (Info1), destinée à recevoir la description du produit, affichée en colonne [C] sur laquelle se base le tri.
With Worksheets("Ingrédients")
iRow = .Columns(3).Find(what:=Me.Info2.Text, lookat:=xlWhole).Row + 1
For x = iRow To .Range("C" & Rows.Count).End(xlUp).Row + 1
If .Cells(x, 3).Font.Bold = True Or .Cells(x, 3) = "" Then
.Range("C" & x & ":K" & x).Insert shift:=xlDown
For y = 3 To 11
.Cells(x, y) = Me.Controls("Info" & y - 2).Text
Next
.Range("C" & iRow & ":K" & x).Sort key1:=.Range("C" & iRow), order1:=xlAscending, Orientation:=xlTopToBottom
.Columns("C:K").AutoFit
Exit For
End If
Next
End With
A+