Excel 2010 - Comparaison plages valeurs dans deux feuilles [Fermé]

Bonjour,
Je sollicite votre aide pour comparer le contenu de deux plages dans deux feuilles excel.
Je suis novice et je dois faire diverses étapes, déjà je n'arrive pas à comparer deux valeurs dans deux feuilles.
Mon besoin :
Comparer les contenus des deux plages dans deux feuilles :
colonnes D et F de la feuille" Encours" avec le contenu des
colonnes A et B de la feuille "Original".
1 - Si contenu de la colonne D (feuille Encours) vide, passer à la valeur suivante
2- Si contenu des colonnes D (feuille Encours) et A (feuille Original) différent, noter feuille Encours, colonne E "Pas trouvé" et passer à la valeur suivante.
3 - Si contenu des colonnes D (feuille Encours) et A (feuille Original) identique, comparer les valeurs correspondantes des colonnes F (feuille Encours) et B (feuille Original),
Si valeurs identiques (colonnes D, F avec A,B), mettre "Idem" en colonne E (feuille encours)
Si valeurs identiques colonnes D et A, mais valeurs différentes pour colonnes F et B, noter le montant de la feuille Original dans la colonne E "Result" de la feuille "Encours".
Mettre le fonds de la cellule en rouge.
4 - Identifier (fonds de cellule colonne A de couleur) dans la feuille "Original" les noms pas présents dans la feuille "Encours"
Pb. parfois dans la feuille "Original" nous pouvons avoir plusieurs lignes avec le même nom et des montants différents et en regard dans la feuille "Encours" une seule ligne,
Par conséquent si on trouve les même noms entre les deux feuilles, on doit ajouter les montants feuille Original avant comparaison et report de donnée dans la feuille Encours.

Sub Compare()
  Dim i As Integer
  Dim col_1 As Range
  Dim col_2 As Range
  Dim CelCol_1 As Range

  'Rechercher dernière cellule renseignée feuille encours et effacer contenu colonne E
  With Worksheets("Encours")
  derlig = .Range("D" & Rows.Count).End(xlUp).Row
  .Range("E4:E" & derlig).ClearContents
  End With
  ' reste à effacer la couleur 
  'Definition plage de cellules
  Set col_1 = Worksheets("Original").Range("A1:A200")
  Set col_2 = Worksheets("Original").Range("B1:B200")
  Set CelCol_1 = Worksheets("Encours").Range("E1:E" & derlig)

  With ThisWorkbook.Sheets("Encours")
    For i = derlig To 4 Step -1
       'test si  cellule vide, passer à la suivante
      'Test si valeur cellule Encours!=Dx est dans Plage col_1(Original!A1:A200))
     If Application.CountIf(col_1, .Range("D" & i).Value) = 0 Then
       CelCol_1(i) = "KO"
       'ElseIf Application.CountIf(col_1, .Range("D" & i).Value) = 0 And Application.CountIf(col_2, .Range("F" & i).Value) = 0 Then        
        CelCol_1(i) = "Pas trouvé"
        Else
        CelCol_1(i) = "Idem"  
         End If
      'End If
    Next i 
  End With  
Msgbox ("Fin")
End Sub

Comment faire pour comparer les deux plages de valeurs ?
Merci d'avance pour votre aide.