Sub SupprTXT()
Dim Fic
Fic = Dir("C:\Users\STAPLE1600\TEST\*.txt")
Do While Fic <> ""
Kill "C:\Users\STAPLE1600\TEST\" & Fic
Fic = Dir
Loop
'EFFACE APRES
'Sheets("Collecte").Range("B1:BZ60000").ClearContents
'Sheets("Transpose").Rows("2:1000").ClearContents
End Sub