Sub ChercheTout()
Dim Chemin As String, i As Long
Range("A7:C65536").Clear
Chemin =[COLOR=Blue] ThisWorkbook.Path[/COLOR] '[COLOR=Red] Range("Doss").Value[/COLOR]
LanceListe Chemin
For i = 1 To UBound(ListeDoss)
ChercheDoss ListeDoss(i)
Next i
End Sub