Fichier = Dir(Chemin & "*.xls")
'Fichier = Dir(Chemin & "*.*")
Do While Len(Fichier) > 0
Debug.Print Chemin & Fichier
Fichier = Dir()
nomfichier = Chemin & Fichier
ActiveWorkbook.Worksheets("Feuil1").Activate
For x = 8 To 68
If Cells(x, 2).Value = "X" Then ....