Thanks. I studied the content of the links to be able to get the content of the first array to the second. I tried with 

b = ActiveSheet.Range("J2:L9").Value
        For i = 1 To UBound(b, 1)
            If .Exists(b(i, 1)) Then
             For ii = 1 To number_of_columns
          b(i, ii) = .Item(b(i, 1))(ii)
                Next ii
         End If
      Next i
 End With
but the b(i, ii) = .Item(b(i, 1))(ii) did not bring the content of the first array, but gives a type mismath error.