Rem. Acquisition Codes et CombBinTyp par ordre de préférence
TDon = WshPostDisp.[A1:Q22].Value
ReDim TCmbCol(1 To UBound(TDon, 2)), TCodes(1 To 4096), TCmbTyp(1 To 4096)
For C = 1 To UBound(TDon, 2)
Select Case TDon(1, C): Case "Decant": TCmbCol(C) = 1: Case "Receive": TCmbCol(C) = 2
Case "Prep": TCmbCol(C) = "4": Case "NPC": TCmbCol(C) = 8: End Select: Next C
For L = 3 To UBound(TDon, 1)
For C = 1 To UBound(TDon, 2)
If TDon(L, C) <> "" Then
NMax = NMax + 1
TCodes(NMax) = TDon(L, C)
TCmbTyp(NMax) = TCmbCol(C)
End If: Next C, L
ReDim Preserve TCodes(1 To NMax), TCmbTyp(1 To NMax)