Selectionner les Cellules de couleur par mise en forme condi pour les clear

Bonjour,

Je réalise un planning d'équipe en 3x8 et j’essaie de l'automatiser au maximum.
Sur la feuille "Janv" j'ai placé un bouton pour Reset les valeurs et le format des cellules pour entamer la nouvelle année. Pour cela j'ai réalisé ce code est pas de souci.

Sub Reset() 'Reset de tout le classeur

Dim Classeur As Worksheet, Reset As Integer
Reset = MsgBox("Si vous n'avez pas enregistrer votre fichier pour la nouvelle année," & Chr(10) & "toutes les données de l'année précédente seront perdu." & Chr(10) & "" & Chr(10) & "Voulez vous continuer ?", vbYesNo)

If Reset = vbYes Then
Sheets("Janv").Select 'premier onglet
Application.ScreenUpdating = False
    For Each Classeur In ActiveWorkbook.Worksheets
    If Classeur.Name <> "Base" Then
            Classeur.Activate
        Range("C8:X38").Select
            Selection.ClearContents
        With Selection.Interior 'Suppression des couleurs de fond
            .Pattern = xlNone
            .TintAndShade = 0
            .PatternTintAndShade = 0
        End With
        Range("C8:C38").Value = "J"
        Range("C8:C38").Select
        With Selection.Interior 'couleurs de fond colonne Monique
            .Color = 15783870
        End With
        Range("A1").Select 'selec A1 pour desselec la suppr
    End If
    Next Classeur
    Sheets("Janv").Select 'Retour au mois Janv
Else
MsgBox "Enregistrez votre fichier avec le nom de la nouvelle année, puis revenez supprimer toutes les données."
End If
End Sub

Le problème que j'ai c'est que je souhaite que pour la colonne du Chef qui est toujours de journée, la lettre "J" s'affiche suite au Reset (chose faite à la ligne 19).
Seulement je souhaite que les cellules correspondant aux week-end reste vide. Les cellules des samedi/dimanche étant de couleur différentes je me suis dit pas de souci, je cherche les cellule de cette couleur et je les clear.
Pour cela j'ai créé ce code la :

Sub TestColor()
Dim plage As Range, cellule As Range
Dim couleur As Long
  couleur = RGB(250, 191, 143)                        'couleur
  Set plage = Range("C8:C38")
  For Each cellule In plage.Cells                     ' Analyse de chaque cellule
    If cellule.Interior.Color = couleur Then          ' si elle est de la bonne couleur ...
      cellule.ClearContents            ' ... remplacer par aucun remplissage
    End If
  Next cellule
End Sub

Alors ça fonctionne bien sur les cases dont le fond est de la bonne couleur (couleur mise manuellement pour tester), cependant ça ne fonctionne pas dans mon cas car mes week-end sont colorisé par mise en forme conditionnelle.
J'ai l'impression que Excel applique un calque sur la cellule pour appliquer une couleur en MiseEnFC et donc la considère transparente malgré un visuel colorisé.

J’espère avoir été suffisamment claire.
Je verrais pour mettre mon fichier si besoin (pas mal d'info personnel à retirer avant)
Merci