bonjour
comment je modifié ce macro pour faire lister tous les fichier sauf les fichiers doc, xls et pdf
Sub BoucleFichiers()
Dim Chemin As String, Fichier As String, i As Integer
' Efface liste
Range("A:A").ClearContents
'Définit le répertoire contenant les fichiers, à...