Macro pour remplacement données

Bonjour à tous,

Je souhaiterais une macro beaucoup plus simples pour remplacer des données trop longues par exemple Monsieur par Mr ; Madame par Mme, pouvez vous m'aider s'il vous plait

Voila ce que j'ai

Merci d'avance de votre aide

' MCRO1 Macro

Columns("N:N").Select

Selection.Replace What:="MONSIEUR", Replacement:="Mr", LookAt:=xlPart,

SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

ReplaceFormat:=False

Selection.Replace What:="MADAME", Replacement:="Mme", LookAt:=xlPart, _

SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

ReplaceFormat:=False

End Sub

Bonjour

A part le Select ta macro est simple

Souvent il n'est pas utile de sélectionner

A voir

Sub test()
  With Columns("N:N")
    .Replace What:="MONSIEUR", Replacement:="Mr", LookAt:=xlPart, _
             SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
             ReplaceFormat:=False
    .Replace What:="MADAME", Replacement:="Mme", LookAt:=xlPart, _
             SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
             ReplaceFormat:=False
  End With
End Sub

Bonjour

en appliquant la formule j'ai une erreur de compilation , de quoi cela peut il provenir

Merci

Bonjour

Travailler sans filet ce n'est pas facile

Bonjour

J'ai trouvé mon erreur et je te remercie de ton aide, cela marche impeccablement bien je vous souhaite une bonne journée

merci merci merci