Private Sub CkxCadhoc_Click()
If CkxCadhoc.Value Then
ReDim TVLCad(1 To 1, 1 To 4)
TVLCad(1, 3) = "Chèque CADHOC de 40€"
TVLCad(1, 4) = 40@
CLsCad.ValeursDepuis TVLCad
ElseIf LCouCad > 0 Then
TVLCad = CLsCad.Lignes(LCouCad).Range.Value
CLsCad.ValeursDepuis TVLCad
Else
CLsCad.Nettoyer
End If
End Sub