Private Sub CBnExtraire_Click()
Dim TDon(), LD As Long, TRés(), LR As Long, C As Integer
TDon = RngDon.Value
ReDim TRés(1 To UBound(TLgn), 1 To UBound(TDon, 2))
For LR = 1 To UBound(TRés, 1)
LD = TLgn(LR)
For C = 1 To UBound(TRés, 2)
TRés(LR, C) = TDon(LD, C)
Next C, LR
WshExtract.[2:1000000].ClearContents
WshExtract.[A2].Resize(UBound(TRés, 1), UBound(TRés, 2)).Value = TRés
End Sub