Supprimer fichier doc sans connaitre son nom

Sub Suppression()

    Const RepSource = "C:\Documents local\essai\"
    
    Dim objFSO As Variant, objFichier As Variant, objRepertoire As Variant
    Dim Longueur As Integer, Compteur As Integer, Extension As String
    Dim Boite() As String

    Dim NumFic As Integer
    Dim Valeur As String
    Dim Boucle As Integer


    Set objFSO = CreateObject("Scripting.FileSystemObject")

    Set objRepertoire = objFSO.GetFolder(RepSource)
    Compteur = 0
    If (objRepertoire.Files.Count > 0) Then
        For Each objFichier In objRepertoire.Files
            Longueur = Len(objFichier.Name)
            Extension = Mid(objFichier.Name, Longueur - 2)
            If (Extension = "doc") Then
                ReDim Preserve Boite(Compteur) As String
                Boite(Compteur) = objFichier.Name
                Compteur = (Compteur + 1)
                objFSO.DeleteFile (RepSource & objFichier.Name)
            End If
        Next
    End If


    
    Valeur = "C:\Documents local\essai\Essai.txt"
    NumFic = FreeFile
    
    Open Valeur For Output As #NumFic
    For Boucle = 0 To (Compteur - 1)
        Write #NumFic, Boite(Boucle)
    Next Boucle
    Close #NumFic

    Set objFSO = Nothing
    Set objRepertoire = Nothing

End Sub