Modificatio automatique entre 2 underscores

Bonjour,

Dans un fichier, je souhaiterais modifier des éléments dans une colonne par rapport à une autre colonne automatiquement et cela sur 145 lignes.

J'ai expliqué plus en détails dans mon fichier ci-joint.

Merci pour votre aide!

Bonjour,

A tester.

Cdlt.

Public Sub DEMO()
Dim lastRow As Long, i As Long
Dim sOld As String, sNew As String

    With ActiveSheet
        lastRow = .Cells(Rows.Count, 1).End(xlUp).Row
        For i = 2 To lastRow
            sOld = .Cells(i, 6): sNew = .Cells(i, 7)
            .Cells(i, 3).Value = Replace(.Cells(i, 3).Value, sOld, sNew)
        Next i
    End With

End Sub

Trop fort, ça fonctionne niquel!

Merci!

Re,

Après la déclaration des variables, ajoute ceci :

Application.ScreeUpdating=False

Pour un gain de temps.

Cdlt.