Boucle sur fichiers

Hello !

J'ai une macro qui doit opérer dans l'ensemble des fichiers .xls du répertoire et des sous répertoires où se trouve mon classeur de macro.

Apparemment c'est au moment de définir xFichier que ça ne marche pas (rien n'apparait dans la liste des variables pour xFichier).

Voici le code :

        Dim Principal As Workbook
        Dim Repertoire As String
        Dim xFichier As String

        Application.ScreenUpdating = False

        Set Principal = ThisWorkbook
        Repertoire = ThisWorkbook.Path
        ChDir Repertoire
        xFichier = Dir("*.xls")
        Do While xFichier <> ""
            If xFichier <> ThisWorkbook.Name Then
                [Ma macro]
            End If
            xFichier = Dir
        Loop
        Application.ScreenUpdating = True
    End Sub

Une idée de la façon de corriger cela ?

Merci !

Edith : après force tatonnement, il s'avère que xFichier = Repertoire & "\*.xls" marche. tout simplement