Private Sub CBnExtraction_Click()
Dim TL() As Long, TDon(), LD As Long, TRés(), LR As Long, C As Long
If ComboBox2.MatchFound Then
TL = SujMC(1)(ComboBox2.ListIndex)
TDon = LOtBase.DataBodyRange.Value
ReDim TRés(1 To UBound(TL), 1 To 26)
For LR = 1 To UBound(TL)
LD = TL(LR)
For C = 1 To 26
TRés(LR, C) = TDon(LD, C)
Next C, LR
Feuil3.[A3:Z1000].ClearContents
Feuil3.[A3].Resize(UBound(TRés, 1), 26).Value = TRés
End If
End Sub