Chercher et remplacer

@echo off
setlocal enabledelayedexpansion
 
set "Chercher=b_tab1"
set "Remplacer=mot"
 
set FichierTexteAremplacer=D:\dossier\fichier.txt
set NouveauFichierTexte=D:\dossier\fichier_new.txt
 
for /f "tokens=1,* delims=¶" %%A in ( '"type !FichierTexteAremplacer!"') do (
	SET string=%%A
	SET modified=!string:%Chercher%=%Remplacer%!

echo !modified! >>%NouveauFichierTexte%
)
del !FichierTexteAremplacer!
move !NouveauFichierTexte! !FichierTexteAremplacer!
exit

b_tab1 mot 
dossier site 
rep arbo 
fichier file

if '%b_tab1%' == '' goto FIN
if '%b_tab1:~0,5%' == 'SOURCE-' goto SOURCE

move %dossier%\%fichier% %dossier%\DONNEES\%b_tab1%

:SOURCE
move %rep%\%fichier% D:\SOURCE_CARTO\DONNEES\%b_tab1%

@echo off &setlocal

:processFile
>"destin.txt" type nul
for /f "delims=: tokens=1*" %%a in ('findstr /n "^" "source.txt"') do (
  set "line=%%b"
  call :processLine
)
goto :eof

:processLine
if not defined line (
  >>"destin.txt" echo.
  goto :eof
)
for /f "usebackq tokens=1* delims= " %%a in ("string.txt") do (
  call set "line=%%line:%%a=%%b%%"
)
set "line=%line:^=^^%"
set "line=%line:&=^&%"
set "line=%line:<=^<%"
set "line=%line:>=^>%"
set "line=%line:|=^|%"
>>"destin.txt" echo.%line%
goto :eof

@echo off
setlocal enableextensions enabledelayedexpansion

set FichierTexteAremplacer=D:\dossier\fichier.txt
set NouveauFichierTexte=D:\fichier_new.txt

for /f "skip=2 tokens=1,* delims=]" %%A in ('find /V "" /N %FichierTexteAremplacer%') do (

SET "string=%%~B"

call:substitution b_tab1 mot
call:substitution dossier site
call:substitution rep arbo
call:substitution fichier file

echo.!string! >>%NouveauFichierTexte%

)

pause
exit

:substitution
if not "!string!"=="" (set "string=!string:%1=%2!")
goto :eof

%b_tab1% &mot
%dossier% &site
%rep% &arbo
%fichier% &file