Problème if ou while?

Private Sub CommandButton1_Click()
Dim LeChemin, J%
Dim Dossier As Object, Fichier As Object
LeChemin = "C:\Documents and Settings\spreux-t\Mes documents\Portail intranet\Etudes et stats\"
'Définition de la variable
Set Dossier = CreateObject("Scripting.FileSystemObject").GetFolder(LeChemin)
J = 1
' Boucle sur les fichiers
For Each Fichier In Dossier.Files
If Fichier.Name = Format(Date, "dd mmmm yyyy") & " Résultats " & J Then
J = J + 1
Else: Exit For
End If
Next
MsgBox "Le n° suivant est " & J + 1, vbOKOnly
End Sub

Option Explicit
Private Sub CommandButton1_Click()
Dim fs As Object, Dossier As Object, Fichier As Object
Dim sDat As String, Rep As String, nFich As String, Num As String
Dim tablo() As Variant
Dim x%, i%, J%, k%, t%
sDat = Format(Date, "dd mmmm yyyy")
Rep = "C:\Documents and Settings\spreux-t\Mes documents\Portail intranet\Etudes et stats"
Set fs = CreateObject("Scripting.FileSystemObject")
Set Dossier = fs.GetFolder(Rep)
For Each Fichier In Dossier.Files
    nFich = fs.GetBaseName(Fichier)
    If nFich Like sDat & "*Résultats*" Then
        Num = Mid(nFich, Len(sDat) + 11, Len(nFich))
        If IsNumeric(Num) Then
            x = x + 1
            ReDim Preserve tablo(1 To x)
            tablo(x) = CInt(Num)
        End If
    End If
Next
For i = 1 To UBound(tablo)
J = i
    For k = J + 1 To UBound(tablo)
        If tablo(k) < tablo(J) Then J = k
    Next k
    If i <> J Then
    t = tablo(J): tablo(J) = tablo(i): tablo(i) = t
    End If
Next i
MsgBox tablo(UBound(tablo)) + 1

End Sub