Dim classeur As Workbook
Set classeur = Application.Workbooks.Open("d:\BaseExpCentraleV19.xls~RF71ebd1.TMP", , True)
Set wbkSource = Workbooks(fichier)
Set shtSource = wbkSource.Worksheets("BaseExp")
With shtSource
Set liste = CreateObject("scripting.dictionary")
For Each c In .Range("c2:c" & .Range("c" & Rows.Count).End(xlUp).Row)
liste(c.Value & "#" & c.Offset(, 1)) = liste(c.Value & "#" & c.Offset(, 1)) + c.Offset(, 2)
Next c
Workbooks("TRI expedition par module.xls").Sheets("resultat du tri").Range("A3:d10000").ClearContents
x = 3
For Each elem In liste.Keys
Workbooks("TRI expedition par module.xls").Sheets("resultat du tri").Range("A" & x).Resize(1, 2) = Split(elem, "#")
x = x + 1
Next elem
Workbooks("TRI expedition par module.xls").Sheets("resultat du tri").Range("c3:c" & liste.Count + 2) = Application.Transpose(liste.Items)
Workbooks(fichier).Close
End With
Range("A3").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.TextToColumns Destination:=Range("A3"), DataType:=xlFixedWidth, _
FieldInfo:=Array(0, 4), TrailingMinusNumbers:=True
Range("A3").Select
End Sub
[/QUOTE