macro pour effacer une couleur (motifs) et pas les autres

Sub ordre_donné() 'colore la cellule quand ordre transmis au chauffeur
With ActiveCell.Interior '.ColorIndex = 42
.ColorIndex = 0
.Pattern = xlGray8
.PatternColorIndex = xlAutomatic
End With
End Sub


Sub efface_couleur_ordre_transmis() 'efface la couleur de la macro ordre donné
Dim d As Range
For Each d In Range("A6:a1200")
If d <> "" Then
If d + 1 < Date Then 'variable nombre de jours
d.Offset(, 1).Resize(3, 10).Interior.ColorIndex = xlNone
End If
End If
Next d
End Sub

Cliquez pour agrandir...

bonsoir
ces deux macros me permettent: pour la première de griser la cellule
pour la deuxième, de d'effacer la couleur de la cellule le lendemain
(oui je sais, c'est bizard )
en fait la couleur grise (motifs petits points) me signale si j'ai transmis au chauffeur ses ordres
le lendemain je n'ai plus besoin de l'info dans cette cellule
je souhaiterais n'effacer que la couleur (motifs) de cette macro car j'ai d'autres couleurs que je souhaite garder
donc ça devrait donner quelque chose comme
si la cellule contient

.ColorIndex = 0 .Pattern = xlGray8
.PatternColorIndex = xlAutomatic

Cliquez pour agrandir...

alors effacer ce fond sinon passe ton chemin la macro lol!!
pouvez m'aider merci