Boucle Vlookup et Coloriage

Option Explicit

Sub test()
Dim cg As Workbook 'déclare la variable cg (Classeur Gestionstock)
Dim ce As Workbook 'déclare la variable ce (Classeur Extraction)
Dim og As Object 'déclare la variable og (Onget Gestionstock)
Dim oe As Object 'déclare la variable oe (Onglet Extraction)
Dim dl As Integer 'déclare la variable dl (Dernière Ligne)
Dim pl As Range 'déclare la variable pl (PLage)
Dim cel As Range 'déclare la variable cel (CELlule)
Dim r As Range 'déclare la variable r (Recherche)

Set cg = Workbooks("gestionstock.xls") 'définit le classeur cg
Set ce = Workbooks("extraction.xls") 'définit le classeur cg
Set og = cg.Sheets(1) 'définit l'onglet og
Set oe = ce.Sheets(1) 'définit l'onglet eg
dl = og.Cells(Application.Rows.Count, 2).End(xlUp).Row 'de'finit la dernière ligne éditée de la colonne B de l'onglet og
Set pl = og.Range("B6:B" & dl) 'définit la plage pl
For Each cel In pl 'boucle sur toutes les cellules cel de la plage pl
    Set r = oe.Columns(2).Find(cel.Value, , xlValues, xlWhole) 'définit la recherche r
    If Not r Is Nothing Then 'condition1 : si il existe au moins une occurrence trouvée
        cel.Offset(0, 1).Value = r.Offset(0, 3).Value 'récupère la valeur correspondante dans la colonne C
        'condition 2 : si la quantité en stock - la quantité souhaité est inférieure au seuil
        If cel.Offset(0, 1).Value - cel.Offset(0, 3) < cel.Offset(0, 5).Value Then
            cel.Offset(0, 6).Interior.ColorIndex = 3 'colore en rouge la cellule de la colonne H
        Else 'sinon
            cel.Offset(0, 6).Interior.ColorIndex = xlNone 'enlève la couleur de la cellule en colonne H
        End If 'fin de la condition 2
    End If 'fin de la condition 1
Next cel 'prochaine cellule de la boucle
End Sub