macro balayant des fichiers rangés dans un répertoire.

Sub Lire_D_extension_Excel()
   'affiche les noms de fichiers dans D:\ avec extensions Excel
   Rep = "D:\"                                  ' Définit le chemin d'accès.
   Fichier = Dir(Rep & "*.xl*")                 ' Extrait la première entrée.
   Debug.Print "-------- Répertoire  " & Rep
   Do While Fichier <> ""                       ' Commence la boucle.
      ' tester l'extension
      Ext = Replace(Fichier, Left(Fichier, InStrRev(Fichier, ".", -1) - 1), "")
      Debug.Print "Ext:" & Ext & vbTab & vbTab & Fichier
      ' actions sur le fichier
      '.....
      '.....
      Fichier = Dir                             ' Extrait l'entrée suivante.
   Loop

End Sub

Sub Lire_D()
   ' Affiche les noms dans C:\ représentant des fichiers.
   Rep = "D:\"                                  ' Définit le chemin d'accès.
   Fichier = Dir(Rep, vbNormal)                 ' Extrait la première entrée.
   Debug.Print "-------- Répertoire  " & Rep
   Do While Fichier <> ""                       ' Commence la boucle.
      ' tester l'extension
      Ext = Replace(Fichier, Left(Fichier, InStrRev(Fichier, ".", -1) - 1), "")
      Debug.Print "Ext:" & Ext & vbTab & vbTab & Fichier
      ' actions sur le fichier
      If Ext = ".xlsx" Or Ext = ".xlsm" Then    ' ou autre test
      '.....
      
      End If
      Fichier = Dir                             ' Extrait l'entrée suivante.
   Loop

End Sub