Question sur la methode "Useranged" code VBA ?

'Option Explicit
Sub Consolidation2()
Dim Temp As String
Dim Tablo As Variant
Dim Ligne As Long, Ligne2 As Long
Dim Lig As Long, ws As Worksheet

Dim v_path$
Dim v_tcode$
Dim v_wkbook$

'Dim col As Byte

' Select current WorkBook reference
v_wkbook$ = ActiveWorkbook.Name
MsgBox ("Upload Xls files into Output-Sheet '" & v_wkbook$ & "'")

' Select "Input-Screen" sheet to read main parameters
Worksheets("Input-Screen").Activate
v_path$ = Sheets("Input-Screen").Range("E6")
MsgBox ("From path: '" & v_path$ & "'")
v_tcode$ = Sheets("Input-Screen").Range("E8")
MsgBox ("and your criteria selection: '" & v_tcode$ & "'")

 Set ws = Worksheets("Data")
 Temp = Dir(v_path$ & "\*" & v_tcode & "*.xls")
' Temp = Dir(v_path$ & "*.xls")

    ws.Select
    Range(Selection, Cells(1)).Select
    Selection.AutoFilter
    Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
    Selection.ClearContents
    
'Clean sheet sheet report
    

Application.DisplayAlerts = False

Do While Temp <> ""
 If Temp <> v_wkbook$ Then
    Workbooks.Open v_path$ & "\" & Temp
    Lig = Workbooks(Temp).Sheets(1).UsedRange.Rows.Count
    Ligne = ws.Range("A1048576").End(xlUp).Row
    ws.Cells(Ligne + 1, "A").Resize(Lig).Value = Temp
    Tablo = Workbooks(Temp).Sheets(1).UsedRange '.Copy
    'ws.Range("B" & Ligne + 1).PasteSpecial xlPasteValues
    ws.Range("B" & Ligne + 1).Resize(UBound(Tablo, 1), UBound(Tablo, 1)) = Tablo
Workbooks(Temp).Close
End If
Temp = Dir
Loop