Discussion :

[kikim78]

Re le forum,

Je cherche à realiser cette tache par macro: supprimer toutes les feuilles du classeur à part la premiere nommé "Feuille1"

Crdt!

[laetitia]

bonjour kikim78 le forum attention au nom de la feuille que tu veus garder
Feuil1 ou Feuille1 ??

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Sub es()
Dim ws As Worksheet
With Application
    .DisplayAlerts = False
    .ScreenUpdating = False
       For Each ws In Worksheets
        If ws.Name <> "Feuille1" Then ws.Delete
      Next ws
    .DisplayAlerts = True
    .ScreenUpdating = True
End With
End Sub

[kikim78]

Re forum,

Impecable laetitia, Merci beaucoup

Bonne journée