Rajouter une deuxieme couleur

Range("A1:AW1").EntireColumn.SpecialCells (xlCellTypeFormulas)

Sub Tuy()
 Dim p As Range, Cellule As Range
With Worksheets("Feuil1").UsedRange
    Set p = Union(.SpecialCells(xlCellTypeConstants), .SpecialCells(xlCellTypeFormulas))
End With
 'Pour chaque cellule des colonnes A à AW utilisée dans la feuille Feuil1
For Each Cellule In p
        'Si l'intérieur de la cellule utilisée est de couleur violette ou saumon
    If Cellule.Interior.Color = 13082801 Or Cellule.Interior.Color = 11851260 Then
        'Remplacer la valeur de cette cellule par sa valeur actuelle
        If IsNumeric(Cellule) Then Cellule.Value = Round(Cellule.Value, 2)
        Cellule.Validation.Delete
        'Retourner à un format de cellule sans remplissage
        Cellule.Interior.Pattern = xlNone
    End If
Next Cellule
End Sub