Re : Macro : Recherchervaleur texte sur une feuille, et remplacer par le texte cellul
Bonsoir
Tu peux essayer cette macro
Sub Rpl()
'Substitution de mots
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Dim Y&, Vcol&, Plage As Range, Vr As String
vcol=2
Y = Cells(65536, vcol).End(xlUp).Row
Set Plage = Range(Cells(1, Vcol), Cells(Y, Vcol))
Vr = "'rep.bal" 'la valeur à remplacer; à adapter
Plage.Select
Plage.Replace What:=Vr, Replacement:="rep", LookAt _
:=xlPart, SearchOrder:=xlByRows, MatchCase:=False
Set Plage = Nothing
Cells(5, 2).Select
Application.Calculation = xlCalculationAutomatic
End Sub
Cordialement