Compteur inter-fichiers

Cette macro est pourtant simple mais il me manque des connaissances de base en VBA : je souhaite ouvrir tous les fichiers du répertoire courant. Si la cellule A5 de la feuil2 contient la valeur "OUI", j'incrémente un compteur. Après avoir bouclé sur tous les fichiers, j'inscris le nombre de "OUI" dans la cellule A1 du fichier contenant la macro.

Merci pour votre aide !

Salut,

Voici une macro qui devrait faire l'affaire :

Option Explicit

Sub En_revue()

Dim Fichier_traité As String, Chemin As String, Compteur As Integer

Application.ScreenUpdating = False

Chemin = ThisWorkbook.Path & "\"
Fichier_traité = Dir(Chemin & "*.xl*")

Do While Fichier_traité <> ""
        If Fichier_traité = ThisWorkbook.Name Then GoTo Etiquette
        Workbooks.Open Chemin & Fichier_traité
        If LCase(ActiveWorkbook.Sheets("Feuil2").Range("A5")) = "oui" Then Compteur = Compteur + 1

        Workbooks(Fichier_traité).Close False
Etiquette:
Fichier_traité = Dir
Loop

Range("A1") = Compteur
End Sub

Celle-ci ne tient pas compte du fichier de base (donc s'il est écrit OUI dans la cellule A5 de la feuille 2 du fichier dans lequel est placé la macro, il n'est pas compté).

Cordialement.

Super, merci beaucoup !