Effacer le contenu de lignes selon conditions

Bonjour, ceci est mon premier sujet ! Je suis bloqué sur une Macro ( je suis novice).

Je cherche à effacer le contenu de ligne selon les conditions suivantes :

1ère ligne à effacer A17

dernière ligne à effacer : 2 lignes au dessus de la cellule " condition de règlement"

Mon document est un devis, dont le nombre de lignes est aléatoire. En effaçant le contenu, je veux pouvoir garder la mise en forme.

Merci bcp de vos retours

Bonjour,

Par exemple, j'ai nommé les premières cellules dont les lignes sont à effacer par ces noms : AEffacerLigne1 et AEffacerLigne2

J'ai placé ce code dans un module standard.

Option Explicit

Sub EffacerLesLignes()

    With ActiveSheet ' A adapter

         .Range("AEffacerLigne1").EntireRow.ClearContents
         .Range("AEffacerLigne2").EntireRow.ClearContents

    End With

End Sub

Merci de votre retour.

pour effacer le contenu des lignes pas de problème. j'enregistre (A19:A...) mais c'est pour identifier la dernière ligne ( 2 lignes au dessus de " conditions de règlement")

comment puis je l'enregistrer ?

Eh bien la ligne de la cellule AEffacerLigne2 est située deux lignes avant la cellule Condition de règlement.