MsgBox "Avant CLsC.Actualiser, le tableau s'appelle """ & CLsC.Lignes.Parent.Name & """."
CLsC.Actualiser
MsgBox "Après CLsC.Actualiser, le tableau s'appelle """ & CLsC.Lignes.Parent.Name & """."
If LCouC = 0 Then
CLsC.ValeursVers TVLC
LCouC = CLsC.PlgTablo.Rows.Count + 1
CLsC.PlgTablo.Rows(LCouC).Resize(, 11).Value = TVLC
CLsC.Actualiser
Else
CLsC.PlgTablo.Rows(LCouC).Resize(, 11).Value = TVLC
End If