Private Sub CL_Résultat(Lignes() As Long)
Dim TBas(), LBas As Long, TLBx(), LLBx As Long
Dim TLgn() As Long ' Attention: il pourrait devenir intéressant de la déclarer globale.
If CBnChanger.Caption = "Libérer" Then Exit Sub
TLgn = Lignes
If UBound(TLgn) > 1 Then
ReDim TLBx(1 To UBound(TLgn), 1 To 1)
TBas = CL.PlgTablo
For LLBx = 1 To UBound(TLgn)
LBas = TLgn(LLBx)
TLBx(LLBx, 1) = TBas(LBas, 5)
Next LLBx
ListBox1.List = TLBx
Else
ListBox1.Clear
LCou = Lignes(1): btnAjout.Caption = "Modifier": btnAjout.Enabled = True
CBnSupprimer.Enabled = True: CBnChanger.Enabled = True
TVL = CL.Lignes(LCou).Range.Value
CA.ValeursDepuis TVL: Affiché = True: End If
End Sub