Travailler sur les fichiers excel dans le même dossier

Dim fs, fld, f, n%
Set fs = CreateObject("Scripting.FileSystemObject")
Set fld = fs.GetFolder(ThisWorkbook.Path).Files
For Each f In fld
    If f.Name Like "Commande*" Then
        t = Split(fs.GetBaseName(f), "Commande")
        If t(1) > n Then n = t(1)
    End If
Next
MsgBox n
set fld = Nothing
Set fs = nothing

Dim fs, fld, f, n%
Set fs = CreateObject("Scripting.FileSystemObject")
Set fld = fs.GetFolder(ThisWorkbook.Path).Files
For Each f In fld
    If UCase(f.Name) Like "LA COMMANDE*" Then
        t = Replace(UCase(fs.GetBaseName(f)), "LA COMMANDE", "")
        If t <> "" And IsNumeric(t) Then
            If t > n Then n = t
        End If
    End If
Next
MsgBox n
Set fld = Nothing
Set fs = Nothing