Sub Extraction_commande()
Dim tabCom(10000, 15) As Variant
Dim y As Integer
' supprimer les données de 2KE_SDS
Worksheets("2KE_SDS").Select
Call supp_extraction
Worksheets("COM").Select
Range("A2571").Select
'Copie des données dans le tableau virtuel commande
While ActiveCell.Value <> ""
If ActiveCell.Offset(0, 0).Value = "COM" Then
y = y + 1
tabCom(y, 1) = ActiveCell.Offset(0, 13).Value
tabCom(y, 2) = ActiveCell.Offset(0, 3).Value
tabCom(y, 3) = ActiveCell.Offset(0, 12).Value
tabCom(y, 4) = ActiveCell.Offset(0, 4).Value
tabCom(y, 5) = ActiveCell.Offset(0, 14).Value
tabCom(y, 6) = ActiveCell.Offset(0, 1).Value
tabCom(y, 7) = ActiveCell.Offset(0, 18).Value
tabCom(y, 8) = ActiveCell.Offset(0, 11).Value
tabCom(y, 9) = ActiveCell.Offset(0, 15).Value
tabCom(y, 10) = ActiveCell.Offset(0, 6).Value
End If
ActiveCell.Offset(1, 0).Select
Wend
Worksheets("2KE_SDS").Select
Range("A2").Select
For i = 1 To y
ActiveCell.Offset(0, 2).Value = tabCom(i, 1)
ActiveCell.Offset(0, 5).Value = tabCom(i, 2)
ActiveCell.Offset(0, 6).Value = tabCom(i, 3)
ActiveCell.Offset(0, 7).Value = tabCom(i, 4)
ActiveCell.Offset(0, 8).Value = tabCom(i, 5)
ActiveCell.Offset(0, 9).Value = tabCom(i, 6)
ActiveCell.Offset(0, 10).Value = tabCom(i, 7)
ActiveCell.Offset(0, 14).Value = tabCom(i, 8)
ActiveCell.Offset(0, 19).Value = tabCom(i, 9)
ActiveCell.Offset(0, 20).Value = tabCom(i, 10)
ActiveCell.Offset(1, 0).Select
Next i
End Sub