Erreur d'exécution 1004

Dim retour As String, i As Integer
Dim TB
    retour = ListeFichier()
    If retour = "" Then Exit Sub 'L'utilisateur à annuler
    
    TB = Split(retour, vbNullChar) ' Séparation de la liste si existe
If UBound(TB) = 0 Then 'un seul fichier sélectionner
        For i = Len(TB(0)) To 1 Step -1
            If Mid(TB(0), i, 1) = "\" Then Exit For
        Next
        List1.AddItem Mid(TB(0), i + 1)
        TB(0) = Left(TB(0), i)

 Dim f As String
 f = List1.List(0)
Label1.Caption = TB(0)
Else
        For i = 1 To UBound(TB)
            List1.AddItem TB(i)
            '
            
    Label1.Caption = TB(0)'TB(0):est le chemin et f le nom du fichier selectionné
            Next
             End If
'ouvrir fichier excel
Dim objXLApp As Excel.Application
Dim j As Integer

Set objXLApp = New Excel.Application

With objXLApp

.Workbooks.Open (TB(0) & f)

.Workbooks(1).Worksheets(1).Select
Dim valabc As String

For j = 1 To CInt(.ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Row)
If (Range("A" & j) = 2) Then
List3.AddItem .Range("B" & j)
valabc = Range("B" & j)
End If

Next j

.Workbooks(1).Close False
.Quit
End With
Set objXLApp = Nothing