Comparaison 2 colonnes

Sub Compare2colonnes()

Dim Plg As Range, c As Range
Dim lc As Range 'déclare la variable lc (Lignes Colorées)

Sheets("Feuil2").Range("A1").CurrentRegion.Clear 'efface les anciennes lignes de l'onglet "Feuil2"
Set lc = Range("A1") 'définit plage lc
deb: 'étiquette
Set Plg = Application.InputBox("Sélectionne la colonne.", Type:=8)
'si plusieurs colonnes sélectionnées, message, rouvre l'InputBox via l'étiquette "deb"
If Plg.Columns.Count > 1 Then MsgBox "Vous ne devez sélectionner qu'une seule colonne !": GoTo deb
For Each c In Plg.SpecialCells(xlCellTypeConstants) 'boucle sur toutes les cellules éditées c de la plage Plg
    If c.Value < c.Offset(0, 1).Value Then 'condition : si la cellule c est inférieure de celle de la cellule une colonne à coté
        c.Resize(1, 2).Interior.ColorIndex = 6 'colore les deux cellules de jaune
        'redéfinit la plage lc
        Set lc = IIf(lc.Cells.Count = 1, c.Resize(1, 2), Application.Union(lc, c.Resize(1, 2)))
    End If 'fin de la condition
Next 'prochaine cellule de la boucle
lc.Copy Sheets("Feuil2").Range("A1") 'copy la plage lc dans A1 de l'onglet "Feuil2"
End Sub