Sub Macro1()
Dim O As Worksheet 'déclare la variable O (Onglet)
Dim CA As String 'déclare la variable CA (Chemin d'Accès)
Dim F As String 'déclare la variable F (Fichiers)
Dim CL As Workbook 'déclare la variable CL (CLasseur)
Dim DEST As Range 'déclare la variable DEST (cellule de DESTination)
Application.ScreenUpdating = False 'masque les raffraîchissements d'écran
Set O = ThisWorkbook.Worksheets("Feuil1") 'définit l'onglet O (à adapter à ton cas)
CA = ThisWorkbook.Path 'définit le chemin d'accès CA
F = Dir(CA & "\*.xls*") 'définit le premier classeur excel ayant CA comme chemin d'accès
Do While F <> "" 'exécute tant qu'il existe des classeurs
If Not F = ThisWorkbook.Name Then 'condition : si le classeur n'est pas celui-ci
'définit la cellule de destination DEST (A12 si A12 est vide sinon, la première cellule vide de la colonne A de l'onglet O)
If O.Range("A12") = "" Then Set DEST = O.Range("A12") Else Set DEST = O.Cells(Application.Rows.Count, "A").End(xlUp).Offset(1, 0)
Set CL = Workbooks.Open(CA & "\" & F) 'définit le classeur CL en l'ouvrant
DEST.Value = CL.Sheets.Count 'renvoie le nombre d'onglets dans DEST
DEST.Offset(0, 1).Value = F 'renvoie le nom du classeur F dans DEST décalé d'une colonne à droite
CL.Close False 'ferme le classeur CL sans enregistrer
F = Dir 'définit le prochain classeur du dossier ayant CA comme chemin d'accès
End If 'fin de la condition
Loop 'boucle
Application.ScreenUpdating = True 'affiche les raffraîchissements d'écran
End Sub