Temps réalisation conséquent

Bonjour à toutes et à tous,

Voici mon problème : j'ai une macro qui me permet de remplacer des mots anglais en des mots français.

Elle fonctionne bien cependant ayant environ 450 lignes à traiter, cette dernière met plusieurs minutes pour se terminer.

J'essaie donc de réduire son temps d’exécution mais je ne trouve pas comment faire.

Pouvez vous m'aider?

Bien à vous,

Floki

bonjour,

ceci devrait déjà aller beaucoup plus vite

Sub fe()
Dim plage As Range
Application.ScreenUpdating = False
Application.EnableEvents = False
Application.Calculation = xlCalculationManual
Set plage = Range("N1").Resize(Range("N450").End(xlUp).Row, 1)

    plage.Replace "FINISHED", "Terminé", lookat:=xlWhole
    plage.Replace "REQUEST", "En préparation", lookat:=xlWhole
    plage.Replace "AWAITINGVALID", "En attente de validation", lookat:=xlWhole
    plage.Replace "AWAITINGITEM", "Attente fourniture", lookat:=xlWhole
    plage.Replace "AWAITINGREAL", "Attente réalisation", lookat:=xlWhole
    plage.Replace "INPROGRESS", "En cours", lookat:=xlWhole
    plage.Replace "CLOSED", "Soldé", lookat:=xlWhole
    plage.Replace "CANCEL", "Annulé", lookat:=xlWhole

    Application.EnableEvents = True
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True

End Sub

Salut,

Chez moi ce code est quasi instantané :

Sub fe()

Columns("N:N").Replace What:="FINISHED", Replacement:="Terminé"
Columns("N:N").Replace What:="REQUEST", Replacement:="En préparation"
Columns("N:N").Replace What:="AWAITINGVALID", Replacement:="En attente de validation"
Columns("N:N").Replace What:="AWAITINGITEM", Replacement:="Attente fourniture"
Columns("N:N").Replace What:="AWAITINGREAL", Replacement:="Attente réalisation"
Columns("N:N").Replace What:="INPROGRESS", Replacement:="En cours"
Columns("N:N").Replace What:="CLOSED", Replacement:="Soldé"
Columns("N:N").Replace What:="CANCEL", Replacement:="Annulé"

End Sub

Edit : Salut h2so4

Girodo,

Bonjour H2so4, Girodo,

Merci beaucoup pour vos codes, ils fonctionnent très bien!

Bonne journée!