Sub RAZ()
Dim chemin$, fichier$
chemin = ThisWorkbook.Path & "\"
fichier = Dir(chemin & "/*.xlsx") '1er fichier du dossier
Application.ScreenUpdating = False
While fichier <> ""
With Workbooks.Open(chemin & fichier).Sheets(1) '1ère feuille
.Range("A6:BP" & .Rows.Count).Delete xlUp
.Parent.Close True 'enregistre et ferme le fichier
End With
fichier = Dir 'fichier suivant
Wend
End Sub