Sub collectionVSdico()
TabF1 = Range(Cells(4, 1), Cells([A65536].End(xlUp).Row, 1))
TabF2 = Range(Cells(4, 7), Cells(Cells(65536, 7).End(xlUp).Row, 7))
'collection
t = Timer
Set Coll_Fourn = New Collection
On Error Resume Next
For L1 = 1 To UBound(TabF2, 1)
Coll_Fourn.Add TabF1(L1, 1), CStr(TabF1(L1, 1))
Err.Clear
Next L1
Debug.Print "Collection", Timer - t
'dico
t = Timer
For L1 = 1 To UBound(TabF2, 1)
If Not MesFrn.Exists(TabF2(L1, 1)) Then MesFrn2.Item(TabF2(L1, 1)) = TabF2(L1, 1)
Next L1
Debug.Print "Dico", Timer - t
End Sub