Private Sub CBnEnreg_Click()
Dim Te(), Le As Long, Ts(), Ls As Long, C As Long ' e comme entrée, s comme sortie
Te = CL.PlgTablo.Resize(, 3).Value
ReDim Preserve Ts(1 To UBound(TLgn) + 1, 1 To 3)
For Ls = 1 To UBound(Ts, 1)
Le = TLgn(Ls - 1): For C = 1 To 3: Ts(Ls, C) = Te(Le, C): Next C, Ls
'recherche de la premiere ligne vide dans la colonne A
'Ligne = Range("a65536").End(xlUp).Row + 1
Range("A1").Resize(UBound(Ts, 1), UBound(Ts, 2)) = Ts
End Sub