Effacer contenu cellule selon couleur

Sub PaletteCouleur()
  Dim Couleur As Long
     Application.ScreenUpdating = False
     Cells(1, 1).Value = 'Couleur'
     Cells(1, 2).Value = 'Code Couleur'
  For Couleur = 1 To 56
     Cells(1 + Couleur, 1).Interior.ColorIndex = Couleur
     Cells(1 + Couleur, 2).Value = Couleur
  Next
     Application.ScreenUpdating = True
  End Sub

Sub essai()
Dim cell As Range
For Each cell In Selection
If cell.Interior.ColorIndex = 6 Then
    cell.ClearContents
Else
End If
Next

End Sub