Microsoft 365 Surbrillance en fonction de cellules précises

Bonjour,

je suis vraiment débutante en VBA. Voila, je désire mettre la cellule active en une couleur différente et la remettre à sa couleur initiale.
Par défaut, je n'ai pas de problème à remettre à la couleur par défaut d'Excel.

Là où cela bloque c'est que j'ai des cellules fusionnées qui sont de couleur jaune soit 6. C'est quand j'ai essayé de faire un IF que ça ne fonctionne plus. Voici ma macro et je n'arrive pas à comprendre ce qui me bloque.

Merci beaucoup d'avance

Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Excel.Range)
'mettre en surbrillance la cellule active

Static xLastRng As Range
On Error Resume Next


If Intersect(Target, Range("D45:F47")) Then
Target.Interior.ColorIndex = 33
xLastRng.Interior.ColorIndex = 6
Set xLastRng = Target


Else

Target.Interior.ColorIndex = 33
xLastRng.Interior.ColorIndex = xlColorIndexNone
Set xLastRng = Target

End If
End Sub