effac derniere ligne * 30 feuilles

[Joss]

Bonjour à tous


j'ai besoin d'aide.
j'ai 30 feuilles identique et je voudrais effacer la derniere ligne d'un ensemble (E10:L40) en une seul fois.

Merci
@+ Joss

 

[Jean-Marie]

Bonjour Joss

Sub joss()

Application.ScreenUpdating = False ' pour la rapidité on désactive l'actualisation de l'écran

Worksheets.Select 'Fait une sélection de toutes les feuilles du classeur
Sheets(1).Activate
Range("A40:L40").Select
Selection.Delete Shift:=xlUp

Application.ScreenUpdating = True 'l'actualisation de l'écran est réactivée

Sheets(1).Select

End Sub