Bonjour Nicolas
Sans doute comme ceci
a = ComboBox1.ListIndex + 3
Sheets("Stock").Range("B" & a)=TextBox14.Value
Sheets("Stock").Range("F" & a)=TextBox11.Value
si décimales il faut utiliser avant
TextBox14=Replace(TextBox14,".",",")' remplace du point en virgule
Sheets("Stock").Range("B" & a)=cdbl(TextBox14)'en numeric
Bruno