Private Sub CBnRésultat_Click()
Dim LDon As Long, LLgn As Long, L As Long ', TDon()
'TDon = CL.PlgTablo.Resize(, 26).Value
LDon = TLgn(1)
'For L = 20 To 24: WshRésCC.Cells(L, "C").Value = TDon(LDon, L - 18): Next L
'WshRésCC.[F20].Value = TDon(LDon, 1)
'WshRésCC.[F26].Value = TDon(LDon, 26)
CL.PlgTablo.Rows(LDon).Name = "LCou"
For LLgn = 1 To UBound(TLgn)
LDon = TLgn(LLgn)
' WshRésCC.Cells(LDon + 31, "C") = TDon(LDon, 8)
' WshRésCC.Cells(LDon + 31, "D") = TDon(LDon, 18)
CL.PlgTablo.Rows(LDon).Name = "LCCL" & LLgn
Next LLgn
End Sub