Sub Erazer_Cells_et_Bords()
Dim ws As Worksheet, lig&
Application.ScreenUpdating = False
For Each ws In Worksheets
lig = ws.Cells(Rows.Count, 1).End(3).Row
With ws.Cells(2, "A").Resize(lig, 14)
.Value = ""
.Borders.LineStyle = xlNone
End With
Next
End Sub