Colorer Ligne doublon

Sub Mise_en_Forme_des_Doublons1()
  Set mondico = CreateObject("Scripting.Dictionary")
  couleur = 34
  For Each c In Range("A1", [A65000].End(xlUp))
     mondico.Item(c.Value) = mondico.Item(c.Value) + 1
  Next c
  Application.ScreenUpdating = False
  For Each c In Range("A1", [A65000].End(xlUp))
    c.Resize(, 8).Interior.ColorIndex = 0
    If mondico.Item(c.Value) > 1 Then
      On Error Resume Next
      If Cells(c.Row, 1) <> Cells(c.Row - 1, 1) Then
        'If couleur = 5 Then couleur = 0
        If couleur = 39 Then couleur = 34
          couleur = couleur + 1
        End If
      On Error GoTo 0
      Cells(c.Row, 1).Resize(, 8).Interior.ColorIndex = couleur
    End If
  Next c
  Application.ScreenUpdating = True
End Sub

Sub Mise_en_Forme_des_Doublons2()
  Set mondico = CreateObject("Scripting.Dictionary")
  Set Plage = Range("A1:H" & [A65536].End(xlUp).Row)
  'Index des couleurs dans un array
   tablo = Array(0, 44, 43, 33, 35, 37) '5 couleurs
   n = 0
  For Each c In Range("A1", [A65536].End(xlUp))
    mondico.Item(c.Value) = mondico.Item(c.Value) + 1
  Next c
  Application.ScreenUpdating = False
  Plage.Interior.ColorIndex = xlNone
  For Each c In Range("A1", [A65536].End(xlUp))
    If mondico.Item(c.Value) > 1 Then
      On Error Resume Next
      If Cells(c.Row, 1) <> Cells(c.Row - 1, 1) Then
        If n = 5 Then n = 0
        couleur = tablo(n + 1)
        n = n + 1
      End If
      On Error GoTo 0
      Cells(c.Row, 1).Resize(, 8).Interior.ColorIndex = couleur
    End If
  Next c
  Application.ScreenUpdating = True
End Sub