Private Sub CommandButton4_Click()
Dim Sh As Worksheet
With Application: .DisplayAlerts = False: .ScreenUpdating = False: End With
For Each Sh In ThisWorkbook.Worksheets
With Sh
If .CodeName <> "Feuil1" And .CodeName <> "Feuil2" And .CodeName <> "Feuil3" Then
.Visible = xlSheetVisible
.Delete
End If
End With
Next
With Application: .DisplayAlerts = True: .ScreenUpdating = True: End With
End Sub