Bonjour à tous,

Me voici de nouveau la pour un petit soucis sur une macro...
Je souhaite rechercher une valeur précise en colonne A et remplacement la valeur s'y rapportant en colonne B.

Mon tableau se présente ainsi :

Colonne A Colonne B
X20 En cours de validation
A20 En cours de validation
G51 En cours de validation
A20 En cours de validation
A20 Validé

Donc si je lui demande de rechercher A20, il devra me remplacer le texte en colonne B : En cours de validation par "VALIDE"

La référence à rechercher est dans la Feuil1 et le tableau des valeurs est dans la Feuil2

Voici ce que j'ai écrit mais cela ne fonctionne pas

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
Sub Macro2()
Dim J As Long
 
 For J = 1 To Range("A" & Rows.Count).End(xlUp).Row
    Sheets("Feuil2").Range("B2:B65536").Replace What:=Sheets("Feuil1").Range("A"), Replacement:="VALIDE", LookAt:=xlPart,
                               SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
 
  Next J
End Sub
J'espère une nouvelle fois ne pas être trop brouillon dans mes explications et vous remercie de l'aide que vous pourrez m'apporter.