c'est bon Problème réglé
J'ai même pu mettre plusieurs colonnes dans mon dico et les séparer à la fin,
Merci à vous !!!!!!!!
Public Sub Dictio_USM()
'La bibliothèque Microsoft Scripting Runtime
' doit être coché dans Outils\Références...
Dim Data As New Dictionary
Dim tablo
Dim Mavariable
Dim i&, j&, dl&
Dim dateInf As Date, dateSup As Date
On Error Resume Next
dateInf = CDate("12/31/2015")
dateSup = CDate("01/01/2017")
With Sheets("Feuil1").Select
tablo = Range("A1:AG" & Range("A65536").End(xlUp).Row)
For i = 1 To UBound(tablo)
If CDate(Cells(i, 5)) > dateInf And Cells(i, 6) < dateSup Then
Data.Item(tablo(i, 3)) = tablo(i, 2) & "\" & tablo(i, 5) & "\" & tablo(i, 6) & "\" & tablo(i, 8) & "\" & tablo(i, 12)
End If
Next i
End With
With Sheets("Feuil2").Select
Range("A1", Cells(Data.Count, "A")) = Application.Transpose(Data.Keys)
Range("B1", Cells(Data.Count, "B")) = Application.Transpose(Data.Items)
dl = Range("b" & Rows.Count).End(xlUp).Row
For j = 1 To dl
Mavariable = Split(Cells(j, 2).Value, "\")
Cells(j, 2) = Mavariable(0)
Cells(j, 3) = Mavariable(1)
Cells(j, 4) = Mavariable(2)
Cells(j, 5) = Mavariable(3)
Cells(j, 6) = Mavariable(4)
Next
End With
End Sub