Sub ListesFichiers()
Dim col1, col2, i%, r As Range, fichier$, n%
col1 = Array("P", "V", "AB", "AQ") 'colonnes contenant les chemins des dossiers
col2 = Array("Q", "W", "AC:AD", "AR:AV") 'colonnes des résultats
Application.ScreenUpdating = False
With Sheets("Feuil1")
For i = 0 To UBound(col1)
Set r = Intersect(.Columns(col1(i)), .UsedRange)
If Not r Is Nothing Then
For Each r In r
If Trim(CStr(r)) <> "" Then
fichier = Dir(CStr(r))
With Intersect(.Columns(col2(i)), r.EntireRow)
.ClearContents 'RAZ
n = 0
While fichier <> "" And n < .Count...