Lancer une macro sur tout les classeurs Excel ouverts

Option Explicit
Sub MaMacro()
Dim wbk As Workbook
Dim msg As String            'Pour l'exemple

  'Pour l'exemple : Initialiser le message
  msg = "Liste des classeurs ouverts :"

  'Passer en revue chaque classeur ouvert
  For Each wbk In Workbooks
    'Mettre ici les instruction à exécuter sur
    'chacun des clesseurs ouverts.
    'Par exemple :
    msg = msg & vbCr & "- " & wbk.Name
  Next wbk

  'Pour l'exemple : Afficher le message
  MsgBox msg

End Sub