macro pour supprimer toutes les lignes à partir de la ligne A2

[caramelle04]

Bonjour à tous,

Je souhaiterai réaliser une macro qui me permette de supprimer toutes les lignes d'une feuille mais à partir de la ligne A2.
J'ai le bout de code suivant qui fonctionne mais qui me supprime tout y compris la ligne A1 alors que je souhaite la conserver:

Private Sub CommandButton4_Click()

Application.ScreenUpdating = False


Sheets("Bonbon").Cells.Delete
Sheets("Gateau").Cells.Delete
Sheets("Chocolat").Cells.Delete

Application.ScreenUpdating = True

End Sub

Une idée pour m'éclairer ?

Merci à tous

 

[Dranreb]

Re : macro pour supprimer toutes les lignes à partir de la ligne A2

Bonjour.
par exemple:

Sheets("Bonbon").Rows("2:65536").Delete

À+

 

[caramelle04]

Re : macro pour supprimer toutes les lignes à partir de la ligne A2

Bonjour Dranreb,

C'est parfait ! Merci beaucoup ça fonctionne à merveille ))

@+