Bonjour claire, excalibur
excalibur, petites informations.
Tu n'es pas obligé de sélectionner une ligne pour pouvoir la supprimer.
Cells(Lgn, 1).EntireRow.Select
Selection.EntireRow.Delete Shift:=xlUp
pourrait avantageusement etre remplacé par : rows(Lgn).delete
le with activesheet est dans ce cas inutile, car derlgn = range.... (sans le
. devant range, travaille obligatoirement sur la feuille active.
Enfin, tu forces le mode de calcul en début et en fin de macro, sans savoir qu'elle etait le paramètre choisi par l'utilisateur du classeur. je me permet de te conseiller de stocker d'abord ce parametre en début de macro.
para=application.calculation
Application.Calculation = xlCalculationManual
'ton traitement ici
Application.Calculation =para
Ne vois dans mon intervention que l'envie de renvoyer l'ascenseur.
salut