[B]Set LastRow = ActiveSheet.Range([C1], [C65536].End(xlUp))[/B]
Select Case LastRow .Interior.ColorIndex
Case 3, 4, 5, 6, 7 'à adapter
LastRow.Offset(1, 0).Value = TextBox1.Text
LastRow.Offset(1, 1).Value = TextBox2.Text
LastRow.Offset(1, 2).Value = TextBox3.Text
LastRow.Offset(1, 3).Value = TextBox4.Text
LastRow.Offset(1, 5).Value = TextBox5.Text
End Select
..........
...........
................