XL 2016 Lancement des boucles

Sub BoucleFichiersJJ()
    Dim Chemin As String, Fichier As String, i&, lig&, col&
    With Feuil1
        .Range("c10:I" & .Rows.Count).ClearContents   ' Efface liste
        lig = 10: col = 3
        For i = 2 To .Cells(.Rows.Count, "A").End(xlUp).Row
            Chemin = .Cells(i, 1)
            Fichier = Dir(Chemin)
            Do While Fichier <> ""
                .Cells(lig, col) = Fichier
                Fichier = Dir()
                lig = lig + 1    ' incrément N° de ligne
            Loop
            col = col + 1: lig = 10
        Next
    End With
End Sub