Bonsoir glm, Jacques, le Forum,
Une autre approche avec :
Sélectionner toute la feuille puis dans Format Mise en forme conditionnelle
La formule est :
=OU(CELLULE('colonne')=COLONNE();CELLULE('row')=LIGNE())
Dans la feuille (aLT+f11)
Private Sub Worksheet_SelectionChange(ByVal zz As Range)
Application.ScreenUpdating = False
Calculate
End Sub
Bonne soirée