Public Art As Variant
Public QT As Variant
Public STOK As Variant
Public Supply As Variant
Public NextSupply As Variant
Public Sub ReadFromRow(ByRef ro As Range)
     On Error Resume Next
     With ro
         Art = .Cells(6)
         QT = .Cells(8)
         STOK = .Cells(10)
         Supply = .Cells(11)
         NextSupply = .Cells(12)
     End With
End Sub

Function TestCollections(StN)
     Dim store As New Collection
     Dim record As Rec1
     Dim ro As Range, ra As Range
     Workbooks.Open Filename:="Путь к файлу\имя файла"
     Workbooks("VenteSurDern4Semaines" & StN & ".xls").Activate
     Worksheets("VenteSurDern4Semaines" & StN).Select
     XRow = ActiveSheet.Cells.Find(What:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByRows).Row
     Set ra = Worksheets("VenteSurDern4Semaines" & StN).Range("A2:M" & XRow)
     For Each ro In ra.Rows
         Set record = New Rec1
         record.ReadFromRow ro
         store.Add record, CStr(record.Art)
     Next ro
     Workbooks("Коллекция.xlsm").Activate
End Function