Sub ÉcrireDonnées(ByVal L As Long)
Dim I&
If LCou = 0 Then
For I = 1 To CL.Count
With CL.Item(I)
VLgn(1, .Col) = .CBx.Text
End With: Next I: End If
VLgn(1, 9) = CDbl(ComboBox1.Value)
VLgn(1, 10) = TextBox1.Value
VLgn(1, 12) = TextBox2.Value
VLgn(1, 11) = TextBox3.Value
On Error Resume Next
Err.Clear: VLgn(1, 13) = CDate(TextBox4.Value): If Err Then VLgn(1, 13) = Empty
Err.Clear: VLgn(1, 14) = CDate(TextBox5.Value): If Err Then VLgn(1, 14) = Empty
Err.Clear: VLgn(1, 15) = CDate(TextBox6.Value): If Err Then VLgn(1, 15) = Empty
Err.Clear: VLgn(1, 16) = CDate(TextBox7.Value): If Err Then VLgn(1, 16) = Empty
Err.Clear: VLgn(1, 17) = CDate(TextBox8.Value): If Err Then VLgn(1, 17) = Empty
Err.Clear: VLgn(1, 18) = CDate(TextBox9.Value): If Err Then VLgn(1, 18) = Empty
Err.Clear: VLgn(1, 20) = CDate(TextBox10.Value): If Err Then VLgn(1, 20) = Empty
On Error GoTo 0
VLgn(1, 19) = Choose(1 - 2 * OBnOui.Value - OBnNon.Value, Empty, "Non", "Oui")
CL.PlgTablo.Rows(L).Resize(, 25).Value2 = VLgn
CL.Actualiser
End Sub