Bonjour à tous,

J'ai un petit soucis avec une formule. Le débogeur annonce une erreur 9 (l'indice n'appartient pas à la sélection) pour la partie surligné.
J'ai vérifié la formule, et je pense avoir une erreur dans le sens où j'écris en vba comme si j'écrivais la formule dans la cellule sous excel.

Sous Vba
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
Dim DernLigne As Integer
'Démarre Bas jusqu'à 1ere ligne non vide
    DernLig = Range("C" & Rows.Count).End(xlUp).Row
'Insertion "Le Meux" RechercherV si cellule Vide
For Each MaCellule In Range("AA2:A" & DernLig)
    If MaCellule.Text = Empty Then MaCellule.Value = Application.IfError(Application.VLookup(Range("C" & MaCellule.Row), Workbooks("Consultation_clt.xls").Worksheets("A").Range("C2:C7000"), 1, 0), "0", "1")    
        Next MaCellule
Sous Excel
Code : Sélectionner tout - Visualiser dans une fenêtre à part
=SI(ESTERREUR(RECHERCHEV(C2;'C:\Users\xXx\Desktop\[Consultation_clt.xls]A'!$C$2:$C$7000;1;FAUX));"0";"1")
Merci d'avance