Supprimer des pages

Bonjour,

il faut passer par vba, car tu as un message d'alerte à chaque suppression de feuille

Sub suppression()
'Déclare la variable objet Worksheet
Dim Ws As Worksheet
Application.DisplayAlerts = False
For Each Ws In ThisWorkbook.Worksheets
    If Ws.Name <> "Feuil1" And Ws.Name <> "Feuil2" And Ws.Name <> "Feuil3" Then ' feuilles à garder et à adapter
     Ws.Delete
    End If
Next Ws
Application.DisplayAlerts = True
End Sub

Bonjour à tous les deux

Pour supprimer une feuille
Clic-droit sur l'onglet (le nom de la feuille)
Supprimer

Cdlmnt

Salut, ccm81 et Le Pivert .

Pourquoi voulez-vous lui supprimer des feuilles, alors qu'il souhaite supprimer des lignes, qui finissent par faire des pages à l'impression ?
Tout au moins c'est ainsi que j'ai compris sa demande ...

Frenchy, veux-tu préciser ton problème, et expliquer comment tu as fait pour multiplier les lignes et les pages ?
Le mieux, à mon avis, serait de créer un nouveau fichier vierge et de tout recommencer ...