Bonjour la communauté

Mon sujet qui est le suivant:
Je récupère d'une TextBox une séquence de codes 3 digits séparés par un "/" (ex "011/015/057/124") - Chaque code correspond à un numéro de club
Une table recense l'ensemble des clubs en France; elle liste en colonne "A" le code des club et en colonne "D" le nom du Président du club correspondant

Je souhaiterais extraire le nom du Président pour chacun des codes de ma séquence. J'ai tenté d'utiliser la fonction Vlookup mais cela ne fonctionne pas. Une erreur 424 est détectée en ligne 15.
Quelqu'un parmi vous aurait-il une idée pour résoudre ce problème ?
Merci beaucoup pour le temps que vous aurez mis à lire ce message et y répondre
Slts

Si
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
 
Sub Président()
 
Dim MonDestinataire As Variant
Dim Code As Variant
Dim arr As Variant
Dim MultiAL As Variant
Dim CodeDpmt As Variant
 
            MultiAL = "011/015/057/124"           ' Séquence en dur pour le test, sinon MultiAL = ...TextBox.value
            arr = Split(MultiAL, "/")
 
            For Each Code In arr
                MonDestinataire.FormulaR1C1 = "=VLOOKUP(Code,R1C1:R200C4,4,FALSE)"
 
                MsgBox MonDestinataire & " - " & Code 
            Next
End Sub