Gestion et Comparaison des valeurs de deux colonnes différents

VBA
10

Re,

Change la macro par celle-ci

Sub Compare()
'Déclaration des variables
Dim i%, Dl%, Dc%

'Affection des variables
i = 2 'N° de la première ligne à comparer
Dl = Range("E" & Rows.Count).End(xlUp).Row 'n° de la dernière ligne non vide de la colonne E
Dc = Cells(i, Columns.Count).End(xlToLeft).Column 'n° de la première colonne vide de la ligne 2
  For i = 2 To Dl 'boucle sur les lignes
    If Cells(i, 5).Value Like "*" & Cells(i, 7).Value & "*" Then
        Range(Cells(i, 5), Cells(i, 7)).Interior.Color = RGB(255, 255, 255)
    Else
        Range(Cells(i, 5), Cells(i, 7)).Interior.Color = RGB(252, 228, 214)
    End If
    If Cells(i, 13).Value >= Cells(i, 14).Value Then
        Range(Cells(i, 13), Cells(i, 14)).Interior.Color = RGB(255, 255, 255)
    Else
        Range(Cells(i, 13), Cells(i, 14)).Interior.Color = RGB(252, 228, 214)
    End If
  Next i
End Sub