RechercheV dans macro avec case variable

J'allais le dire, te plante pas sur x et y. Si tu te plante de variable, alors ton code n'a aucune chance de fonctionner.

Je vois vos conseil me disant de ne pas me planter de variable.
J'ai super attention à ça, normalement, je dis bien normalement je ne me suis pas trompé.
Surtout que je ne vous ai pas tout avoué sur mon code et surtout sur mon nombre de variable. Il est "bien plus complexe" (dans le sens où mon nb de variable est assez important).

Voici un bref aperçu :

'
''Partie 4
For i = 2 To 5000
    
    '
    '
    '
    'Renseignement de l'inventaire Partie 4
    If Nr_entrepot = Worksheets("Inventaire").Cells(i, 2) And (Worksheets("Inventaire").Cells(i, 5) = Worksheets("Base_de_donnees").Range("H5").Value) Then

        Cells(y + 8 + x + w, 1) = "Meuble frigorifique"         'Nom Partie Partie 4
        'Mise en forme titre Partie 4
        Range(Cells(y + 8 + x + w, 1), Cells(y + 8 + x + w, 8)).Select
        Call mise_en_forme_ligne_titre
        
        Cells(y + 9 + x + w + v, 1) = Worksheets("Inventaire").Cells(i, 1) 'Nom de l'entrepôt
        Cells(y + 9 + x + w + v, 2) = Worksheets("Inventaire").Cells(i, 5) 'Type d'installation
        Cells(y + 9 + x + w + v, 3) = Worksheets("Inventaire").Cells(i, 3) 'CODE
        Cells(y + 9 + x + w + v, 4) = Worksheets("Inventaire").Cells(i, 7) 'Désignation
        Cells(y + 9 + x + w + v, 5) = Worksheets("Inventaire").Cells(i, 8) 'Fabricant
        Cells(y + 9 + x + w + v, 6) = Worksheets("Inventaire").Cells(i, 9) 'Désignation type
        Cells(y + 9 + x + w + v, 7) = Worksheets("Inventaire").Cells(i, 13) 'Numéro de série
        Cells(y + 9 + x + w + v, 8).Value = Application.WorksheetFunction.VLookup(Cells(y + 9 + x + w + v, 8), Sheets(Base_de_donnees).Range("K1, L29"), 2, False)   'Unité
        Cells(y + 9 + x + w + v, 9) = ""                                    ' Tarif
        Cells(y + 9 + x + w + v, 10) = ""                                   'Plus-value
        v = v + 1

    End If
 
Next
        'Mise en place de ligne Total Partie 4
        Cells(y + 9 + x + w + v, 1) = "Total Maintenance Partie 4" 'Ligne total maintenance Partie 4
            'Mise en forme total Partie 4
            Range(Cells(y + 9 + x + w + v, 1), Cells(y + 9 + x + w + v, 8)).Select
            Call mise_en_forme_ligne_totale

En fait si j'ai mis autant de variable, ce n'est pas forcément que je n'avais pas le choix, mais c'est surtout que je n'ai pas su faire autrement.
Pour vous expliquer un peu le but de cette macro, je dois aller chercher un inventaire dans l'onglet inventaire. Sauf qu'il est constitué de 6 parties. Mon problème est que le nombre de ligne d'une partie de l'inventaire varie à chaque fois. Et je veux que chaque partie se succède lorsque je vais les chercher avec ma macro. D'où ce nombre important de variable.

Pour information, cette macro fonctionne très bien, si je ne mets pas la formule "VLookUp", donc le problème ne vient pas des variables (sauf peut-être sur cette ligne, mais je ne vois pas pourquoi cela devrait être différent).


P.S. : J'espère ne pas vous avoir découragé :)

VLOOKUP de la valeur se trouvant en colonne 3, et pas 8.

Exact, je n'avais pas fait attention à ça. Mais j'ai toujours le bug :(

Sans ton fichier, on ne peut pas aller plus loin, je crois.
Tu as essayé la syntaxe que j'ai donnée ?
Ou encore essayé d'enregistrer une macro en mettant la formule à la main ?