Excel 2007 mise en forme conditionnelle

Const NO_COLOR As Long = -4142

Private Sub CommandButton1_Click()
Dim nColor As Long
Dim nRow As Long
Dim nRow2 As Long
Dim nColumn As Long

' On efface les couleurs
nRow = 1
While Cells(nRow, 1).Value <> ""
  Cells(nRow, 1).Interior.ColorIndex = 0
  Cells(nRow, 2).Interior.ColorIndex = 0
  nRow = nRow + 1
Wend

nColor = 2
nRow = 1
While Cells(nRow, 1).Value <> ""
  ' On ne s'occupe pas des cellules qui ont déjà une correspondance
  If Cells(nRow, 1).Interior.ColorIndex = NO_COLOR Then
    ' On parcourt les cellules suivantes à la recherche d'un correspondance
    nRow2 = nRow + 1
    While Cells(nRow2, 1).Value <> ""
      If Cells(nRow, 2).Value = Cells(nRow2, 2).Value Then
        Cells(nRow, 1).Interior.ColorIndex = nColor
        Cells(nRow, 2).Interior.ColorIndex = nColor
        Cells(nRow2, 1).Interior.ColorIndex = nColor
        Cells(nRow2, 2).Interior.ColorIndex = nColor
      End If
      nRow2 = nRow2 + 1
    Wend
    
    ' Si on a trouvé des correspondance, on passe à la couleur suivante
    If Cells(nRow, 1).Interior.ColorIndex <> 0 Then
      nColor = nColor + 1
      If nColor > 57 Then
        MsgBox "Plus de couleurs disponibles"
        Exit Sub
      End If
    End If
  End If
  nRow = nRow + 1
Wend

End Sub