Sub vloukup()
Dim T(), D As New Dictionary, L&
' Déclare un tabeau de Variant dynamique T, un Dictionary D et une variable L As Long
T = Feuil3.[A1].Resize(Feuil3.[A60000].End(xlUp).Row, 2).Value
' Charge en T les valeurs à partir de la cellule A1 de la feuille représentée par l'objet Worksheet
' nommé Feuil3 dans la rubrique "Microsoft Excel Objets" du projet, pour un nombre de lignes égal
' au numéro de la dernier cellule renseignée jusqu'à A60000, et 2 colonnes
For L = 1 To UBound(T, 1): D(T(L, 1)) = T(L, 2): Next L
' Pour L = 1 jusqu'au nombre de lignes du tableau: crée s'il y a lieu une clé dans le dictionnaire
' dont la valeur est celle de la colonne 1 à cette ligne, et la valeur d'item celle de la colonne 2
T = Feuil4.[A1].Resize(Feuil4.[A60000].End(xlUp).Row).Value
' Réutilise le tableau pour autre chose: seulement les valeurs colonne 1 de la Feuil4
For L = 1 To UBound(T, 1)
' Pour L = 1 jusqu'au nombre de lignes du tableau
If D.Exists(T(L, 1)) Then T(L, 1) = D(T(L, 1)) Else T(L, 1) = Empty
' Si la clé existe on la remplace par la valeur d'item, sinon par rien.
Next L
Feuil4.[K1].Resize(UBound(T, 1)).Value = T
' Décharge le tableau à partir de la cellule K1
End Sub