@echo on
set Dest=C:\TMP\LWP

DIR *.xls? /S /B >tmp_x1.txt

:MD  %Dest%

FOR /F "delims=*" %%a in (tmp_x1.txt) do call :Mover %%~da "%%~pa" "%%~na" %%~xa
GOTO :EOF

:Mover
   set Disco=%1
   set Direc=%2
   set Files=%3
   set Exten=%4

   set Direc=%Direc:~1,-1%
   set Files=%Files:~1,-1%

   set Archi=%Files%
   set Num=100

:Verif
   If Exist %Dest%\%Archi%%Exten% goto New_Name

   Copy "%Disco%%Direc%%Files%%Exten%"  "%Dest%\%Archi%%Exten%"
   goto:EOF

:New_Name
   set /A Num+=1
   set    Archi=%Files%_%Num:~-2%
   goto Verif
