Variable dictionnaire ou tableau

Sub test()
Dim P As Object
Dim T, L&, D&
  With Worksheets("Temp")
    D = .Cells(.Rows.Count, 1).End(xlUp).Row
    T = .Range("A2:C" & D).Value
  End With
  Set P = CreateObject("Scripting.Dictionary")
  For L = LBound(T) To UBound(T)
    P(T(L, 1)) = T(L, 3)
  Next L
  With Worksheets("Produits")
    D = .Cells(.Rows.Count, 1).End(xlUp).Row
    T = .Range("A2:C" & D).Value
    For L = LBound(T) To UBound(T)
      T(L, 3) = P(T(L, 1))
    Next L
    .Range("A2:C" & D).Value = T
  End With
End Sub

Sub test()
Dim P As Object
Dim T1, T2, T3, T4, L&, D&
  ' definir les tableaux sources
  With Worksheets("Temp")
    D = .Cells(.Rows.Count, 1).End(xlUp).Row
    T1 = .Range("A2:A" & D).Value  'clé
    T2 = .Range("C2:C" & D).Value  '1° valeur
    T3 = .Range("F2:F" & D).Value  '2° valeur
    T4 = .Range("M2:M" & D).Value  '3° valeur
  End With
  ' mémoriser les valeurs dans un dictionnaire
  Set P = CreateObject("Scripting.Dictionary")
  For L = LBound(T1) To UBound(T1)
    P(T1(L, 1)) = T2(L, 1) & Chr(1) & T3(L, 1) & Chr(1) & T4(L, 1) 'concatène les 3 valeurs dans le dictionnaire
  Next L
  ' restituer les valeurs
  With Worksheets("Produits")
    D = .Cells(.Rows.Count, 1).End(xlUp).Row
    T1 = .Range("A2:A" & D).Value   'clé
    T2 = .Range("C2:C" & D).Value   'colonne de destination de la 1° valeur (on pourrait changer de colonne)
    T3 = .Range("F2:F" & D).Value   'colonne de destination de la 2° valeur (on pourrait changer de colonne)
    T4 = .Range("M2:M" & D).Value   'colonne de destination de la 3° valeur (on pourrait changer de colonne)
    For L = LBound(T1) To UBound(T1)
      T2(L, 1) = Split(P(T1(L, 1)), Chr(1))(0)
      T3(L, 1) = Split(P(T1(L, 1)), Chr(1))(1)
      T4(L, 1) = Split(P(T1(L, 1)), Chr(1))(2)
    Next L
    .Range("C2:C" & D).Value = T2   'Ici on remet les valeurs en place
    .Range("F2:F" & D).Value = T3  '  "
    .Range("M2:M" & D).Value = T4  '  "
  End With
End Sub