Private Sub CMBvalider_Click()
Dim Te() As Variant, Le As Long, _
Ts() As Variant, Ls As Long, N As Long, C As Long
Te = CBL.PlgTablo.Resize(, 15).Value
ReDim Ts(1 To UBound(Te, 1), 1 To 15)
For N = 1 To UBound(TLgn)
Le = TLgn(N)
Ls = Ls + 1
For C = 1 To 15: Ts(Ls, C) = Te(Le, C): Next C
Next N
Sheet3.[3:65536].ClearContents
Sheet3.Rows(3).Resize(Ls, 15).Value = Ts
Sheets("Résultat").Activate
Unload Me
End Sub