Harmoniser les noms des communes

bonsoir,

macro adaptée qui inclut la modification proposée. Suppression de l'espace initial

Bonjour,

Désolé hier nuit, je n'en pouvais plus lol.

Plaisir au réveil de trouver un fichier qui solutionne mon souci !

Je t'en remercie vraiment

Je l'intègre ce WE dans mon fichier de travail et je te dirai.

Bonne journée,

lionel,

Re-Bonjour h2so4,

sgro gneu gneu !

Quand j'intègre le code dans mon fichier de travail ... ça coince encore et pourtant j'ai copié intégralement ton code sans rien changer !

Je n'arrive pas à comprendre pourquoi ?

Je continue à chercher,

lionel,

bonjour,

je suppose qu'il y a un conflit avec d'autres macros dans ton fichier, remplace les premiières lignes de la macro par celles-ci

Sub ModifNomsCommunes()
    Dim ws As Worksheet, dlws As Long
    Set ws = Sheets("Vérifie secteur")
    With ws
        dlws = .Cells(Rows.Count, 26).End(xlUp).Row
        .Columns("AA").Insert shift:=xlToRight
        With .Range("AA2:AA" & dlws)

Re-Bonjour h2so4,

Tu avais raison, il doit y avoir un conflit avec les codes contenus dans le classeur ?

Pourtant, je désactive les macros pendant l'exécution de ton code "Application.EnableEvents = False - Application.ScreenUpdating = False",

Alors, je ne vois pas pkoi conflit ?

Mais cette fois, c'est bon ça fonctionne du tonnerre et ça me rend un grand service.

Je te remercie vraiment d'avoir trouvé la solution ainsi que pour ta perspicacité,

Fil résolu,

lionel