Comparer plusieurs colonnes en VBA

Sub Résultat()
Dim DerLig As Long, Ligne As Long 'variables
 'choisir la feuille ici
With Worksheets("Feuil1")

DerLig = .Range("B" & Rows.Count).End(xlUp).Row 'déterminer le N° de ligne de la dernière ligne non vide de la colonne B dans al variable dernLign

For Ligne = 1 To DerLig 'a partir de la premiere ligne jusqu'a la derniere
    ' verif que bloc dans ABCD existe dans FGHI
    If Application.WorksheetFunction.CountIfs(.Range("F1:F" & DerLig), .Range("A" & Ligne), .Range("G1:G" & DerLig), .Range("B" & Ligne), .Range("H1:H" & DerLig), .Range("C" & Ligne), .Range("I1:I" & DerLig), .Range("D" & Ligne)) = 0 Then
    .Range("E" & Ligne) = "Différent"
     .Range("A" & Ligne & ":D" & Ligne).Select
     Selection.Interior.Color = 255
     Else
    .Range("E" & Ligne) = "OK"
    .Range("A" & Ligne & ":D" & Ligne).Interior.Pattern = xlNone
     End If
    
     ' verif que bloc dans FGHI existe dans ABCD
    If Application.WorksheetFunction.CountIfs(.Range("A1:A" & DerLig), .Range("F" & Ligne), .Range("B1:B" & DerLig), .Range("G" & Ligne), .Range("C1:C" & DerLig), .Range("H" & Ligne), .Range("D1:D" & DerLig), .Range("I" & Ligne)) = 0 Then
    .Range("J" & Ligne) = "Différent"
     .Range("F" & Ligne & ":I" & Ligne).Select
     Selection.Interior.Color = 255
     Else
    .Range("J" & Ligne) = "OK"
    .Range("F" & Ligne & ":I" & Ligne).Interior.Pattern = xlNone
     End If
 
 Next
 
 End With
 End Sub

Next

DerLig = .Range("F" & Rows.Count).End(xlUp).Row 'déterminer le N° de ligne de la dernière ligne non vide de la colonne F dans al variable dernLign

For Ligne = 1 To DerLig 'a partir de la premiere ligne jusqu'a la derniere

Mettre le classeur sans données confidentielles en pièce jointe sur 
 https://mon-partage.fr
Dans lien de téléchargement
 faire un clic  droit- copier l’adresse du lien   et  le coller dans votre message en cours sur ccm 

Option Explicit
Dim i%, n%, dl%, x%, dc%
Sub Compare()
' i = n° ligne
'n = n° 1re série de colonnes
'dl = dernière ligne
'dc = dernière colonne
'x = n + 4 (colonnes à comparer)

dl = Range("A65536").End(xlUp).Row
dc = Cells(1, Columns.Count).End(xlToLeft).Column
      For n = 1 To 4
            For i = 1 To dl
            x = n + 5
                  If Cells(i, n) <> Cells(i, x) Then
                  Cells(i, n).Font.ColorIndex = 3
                  Cells(i, x).Font.ColorIndex = 3
                  Cells(i, dc + 1) = "Différent"
                  End If
            Next i
      Next n
End Sub

Il s'agirait de comparer toute une ligne de la liste 1 avec les lignes de la liste 2 (dans le désordre du coup

Option Explicit
Dim i%, n%, dl%, x%
Sub Compare()
dl = Range("A65536").End(xlUp).Row
      For n = 1 To 3
            For i = 1 To dl
            x = n + 4
                  If Cells(i, n) <> Cells(i, x) Then
                  Cells(i, n).Font.ColorIndex = 3
                  Cells(i, x).Font.ColorIndex = 3
                  Cells(i, n + 1) = "Différent"
                  End If
            Next i
      Next n
End Sub