Sub SuppFeuilles()
Dim dur, s As Object, a$(), n&
dur = Timer
Application.ScreenUpdating = False
Application.DisplayAlerts = False
On Error Resume Next
For Each s In Sheets
If s.Name Like "Feuil*" Then
ReDim Preserve a(n)
a(n) = s.Name
n = n + 1
If n Mod 20 = 0 Then Sheets(a).Delete: n = 0
End If
Next
Sheets(a).Delete
MsgBox "Durée " & Format(Timer - dur, "0.00 \s")
End Sub