Salut le forum
Peter2302, j'y vais a l'aveuglette sans ton fichier
Sub Effacer_Fichier()
Dim i as Integer
On Error Resume Next
For i=1 to 10 'A adapter au nombre de lignes
Kill Cells(i,1).Value
Next i
End Sub
Tes noms de fichiers en colonne A de la ligne 1 à 10
Mytå