.............
..................
Case Is = "Modifier"
.Cells(ligne, 2) = ComboBox1.Value
.Cells(ligne, 3) = [COLOR=Blue][B]CDate([/B][/COLOR]TextBox7.Value[B][COLOR=Blue])[/COLOR][/B]
.Cells(ligne, 4) = ComboBox3.Value
.Cells(ligne, 5) = ComboBox2.Value
.Cells(ligne, 6) = TextBox2.Value
...........
.............