Suppression de lige copié

Bonjour

l'objectif de ma macro et de rajouter une ligne en dessous de mon ActiveCell dans un tableau.

j'ai reussi à le faire avec ce code :

Selection.EntireRow.Copy

Selection.Insert Shift:=xlDown

sauf que ce dernier me copie le contenu de la ligne que j'ai copié, je voudrais rajouter une ligne de code qui permet de me rajouter une ligne vide.

voici mon ficher en PJ

Merci d'avance

Bonjour,

Pour insérer une ligne, il suffit de n'appliquer que la deuxième instruction...

'Copie de la ligne
Selection.EntireRow.Copy

'Insertion d'une ligne vierge
Selection.Insert Shift:=xlDown

Sinon, il est possible de supprimer le contenu de la ligne après coup :

Selection.Offset(1,0).ClearContents

bonjour

je te remercie pour ta réponse, effectivement ta sollution permet de rajouter une ligne en dessous, mais le Offset(1, 0).ClearContents supoprime que une cellule et pas une ligne complete.

je te met le résultat en PJ.

je veux avoir un ClearContents sur toute la ligne rajoutée .

Merci d'avance

DamienRRRR a écrit :

je te remercie pour ta réponse, effectivement ta sollution permet de rajouter une ligne en dessous, mais le Offset(1, 0).ClearContents supoprime que une cellule et pas une ligne complete.

Selection.EntireRow.Offset(1,0).ClearContents

MERCI BEAUCOUP CA MARCHE