Private WithEvents xlApp As Excel.Application
'à l'ouverture de ce classeur, récupérer l'application Excel
Private Sub Workbook_Open()
Set xlApp = Application
End Sub
Private Sub xlApp_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
'code qui va s'exécuter à chaque changement de cellule sur tous les classeurs
'ouverts dans cette instance d'Excel
MsgBox "Sélection actuelle : " & Target.Address(External:=True)
End Sub