Macro gestion des noms

Bonjour,

Je cherche à modifier la macro ci-dessous pour rajouter un deuxième nom que je voudrais exclure de la suppression du gestionnaire de nom.

Mais j'arrive pas à la rajouter.

For Each N In ActiveWorkbook.Names

If Not N.Name Like "*Grille*" Then

N.Delete

End If

Next

Je cherche également à faire une macro pour supprimer toute les lignes vides d'une feuille excel puis de rajouter deux lignes vides à la place de chaque groupe de ligne supprimées à condition qu'il y est une valeur dans la colonne G de la ligne supérieure à celle ou sera inséré les deux lignes.

Cordialement

Bonjour,

For Each N In ActiveWorkbook.Names
  If Not N.Name Like "*Grille*" Or Not N.Name Like "*Toto*"Then
    N.Delete
  End If
Next

Pour ta 2ème question, j'ai mal à la tête rien que de commencer à lire l'énoncé

Merci de relire

https://forum.excel-pratique.com/annonces/explications-et-regles-a-respecter-t13.html

Paragraphe 6

Salut,

Dans le fichier ci-joint j’ai placé quelques noms ainsi que ta macro modifiée.

L’un des noms est ‘Grille’ et Excel lit ‘Data_Form’ à la place. Ce nom est donc supprimé par la macro, bien qu’elle ne devrait pas supprimer les noms contenant la chaine ‘Grille’.

Pour bien t’en faire la démo, un MsgBox affiche chaque nom avant de décider s’il faut le supprimer ou non.

Cordialement.

EDIT : Décidément, Bruno, aujourd'hui je te cours derrière