Public Sub Synthese()
Dim TblSynthese(), TblOrdre, ListObj As ListObject, Lr As ListRow, Cel As Range
Dim i As Long, j As Long, L As Long, Cv0 As Byte, Cv1 As Byte, Cv2 As Byte, Carc As Byte
Cv0 = Feuil3.Cells.Find("V0").Column: Cv1 = Feuil3.Cells.Find("V1").Column
Cv2 = Feuil3.Cells.Find("V2").Column: Carc = Feuil3.Cells.Find("ARC").Column
i = Application.CountIf(Feuil3.[D:D], "=" & "11X*")
TblOrdre = Feuil3.Range("D16:D" & i + 15)
Set ListObj = Feuil1.ListObjects("Base")
For i = 1 To UBound(TblOrdre)
For Each Cel In ListObj.DataBodyRange.Columns(5).Cells
If Cel.Value = TblOrdre(i, 1) Then
L = L + 1
Set Lr = ListObj.ListRows(L): j = j + 1
ReDim Preserve TblSynthese(1 To 4, 1 To j)
TblSynthese(1, j) = Lr.Range.Cells(1, 7) 'v0
TblSynthese(2, j) = Lr.Range.Cells(1, 8) 'v1
TblSynthese(3, j) = Lr.Range.Cells(1, 9) 'v2
TblSynthese(4, j) = Lr.Range.Cells(1, 10) 'arc
Exit For
End If
Next Cel
Next i
TblSynthese = Application.Transpose(TblSynthese)
For i = 1 To UBound(TblSynthese, 1)
Feuil3.Cells(14 + i, Cv0) = TblSynthese(i, 1)
Feuil3.Cells(14 + i, Cv1) = TblSynthese(i, 2)
Feuil3.Cells(14 + i, Cv2) = TblSynthese(i, 3)
Feuil3.Cells(14 + i, Carc) = TblSynthese(i, 4)
Next
End Sub