Calculer le nombre d'itération d'une boucle

Bonjour à tous,

Contexte:

J'ai une macro qui renomme des plages de noms en fonctions de critères définis :

Sub DIV_32_MAJ_NOM()

NEW_EXT = "_SEC"
OLD_EXT = "_VAL"
ONGLET = "'CX2-CAL SEC'!"

    For Each NOM In ActiveWorkbook.Names

            If Right(NOM.Name, 4) = OLD_EXT And Mid(NOM.RefersToR1C1, 2, 14) = ONGLET Then NOM.Name = Replace(NOM.Name, OLD_EXT, NEW_EXT)

    Next NOM

End Sub

Problème:

Je souhaiterai connaître le nombre de noms traités à la fin de la macro dans une message box.

Questions:

Quelles sont les modifications que je dois apporter à mon code pour avoir cette information?

D'avance merci pour vos précieuses contributions.

Cordialement

Bonjour

A tester

Sub DIV_32_MAJ_NOM()
Dim Compteur As Integer

  NEW_EXT = "_SEC"
  OLD_EXT = "_VAL"
  ONGLET = "'CX2-CAL SEC'!"

  For Each NOM In ActiveWorkbook.Names

    If Right(NOM.Name, 4) = OLD_EXT And Mid(NOM.RefersToR1C1, 2, 14) = ONGLET Then
      NOM.Name = Replace(NOM.Name, OLD_EXT, NEW_EXT)
      Compteur = Compteur + 1
    End If
  Next NOM
  MsgBox Compteur
End Sub

Merci Banzai64,

C'est parfait comme d'habitude.

Bonne soirée