Boucle remplacement partiel

bonjour,

je souhaiterais remplacer dans la colonne A, les valeurs qui se trouve dans la colonne E par les valeurs de la colonne F.

Pas sûr d'être bien clair.

J'ai fait un code pour une valeur , mais vu le nombre de valeurs à remplacer il y a mieux que de le recopier 10 fois de suite...

merci d'avance

Sub Macro1()
'
' Macro1 Macro
'

Dim a As String

Dim B As String

a = ActiveSheet.Range("E1").Value
B = ActiveSheet.Range("F1").Value
'
    Columns("A:A").Select
    Selection.Replace What:=a, Replacement:=B, LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False

End Sub

Bonjour,

A tester

Bonjour,

un autre test

bonjour,

Merci à vous 2 , les 2 méthodes sont efficaces.

merci encore