Fonction Vlookup

Bonjour a tous,

Je galère un peu sur l'utilisation de cette fonction pour l'une de mes macro.

J'ai bien compris comment elle fonctionnait mais en pratique....

Pour vous expliquer.

Une macro intègre d'un fichier excel sur mon onglet Stock mes ventes de la veille.

J'ai donc sur mon onglet Stock des références d'article en colonne A et j'ai les quantités correspondantes en colonne C

Sur 2 autres onglet j'ai les mêmes références d'article en colonne B et je dois récupérer les valeurs correspondantes sur la colonne I.

La macro que j'ai monté est celle-ci mais je n'arrive pas a trouver mon erreur

Sub MacroCopieduStock()
'Limitation du ralenti de la macro
Application.ScreenUpdating = False

' Protection mot de passe
Dim mdp As String
MsgBox "INTEGRATION DU STOCK DANS LES ONGLETS CORRESPONDANTS ", vbOKOnly + vbExclamation, "CODE D'ACCES"
mdp = InputBox("Saisir votre mot de passe pour intégrer les ventes ", "Saisie du mot de passe")
If mdp <> "raz" Then
  MsgBox "MOT DE PASSE ERRONE"
Exit Sub
Else
If Range("A9") <> "Article" Then
  MsgBox "Veuillez d'abord intégrer le Stock"
Exit Sub
Else
End If
End If

' Enlève filtres
On Error Resume Next
For Each sh In Sheets
    sh.ShowAllData
Next sh

' Selection de la destination des valeurs a rechercher, recherche du nombre de lignes pour étirer la formule
    Sheets("Gestion stock épices").Select
    Range("I9").Select
    Range("I9:I" & [A65536].End(xlUp).Row).FormulaR1C1 = "= IFERROR(VLOOKUP(RC[-7],Stock!R1C1:R699C8,3,0),0)"
' Transformation des formules en valeurs
   Range("I9:I2000").Select
   Selection.Copy
   Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
' Selection de la destination des valeurs a rechercher, recherche du nombre de lignes pour étirer la formule
'    Sheets("Gestion stock boyaux").Select
 '   Range("I9").Select
  '  Range("I9:I" & [A65536].End(xlUp).Row).FormulaR1C1 = "= IFERROR(VLOOKUP(RC[-7],Integr Stock!R1C1:R699C8,3,0),0)"
' Transformation des formules en valeurs
 '  Range("I9:I2000").Select
 '  Selection.Copy
 '  Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
 '       :=False, Transpose:=False
  '  Application.CutCopyMode = False

  'Suppression valeurs importées
    Sheets("Stock").Select
    Columns("A:F").Select
    Selection.ClearContents
     With Selection.Interior
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With

Application.ScreenUpdating = True
End Sub

Par avance un grand merci

Bonjour,

et il est où le fichier ?

P.